Problem:
Score : 500 points

Problem Statement

Given are N positive integers A_1,...,A_N.

Consider positive integers B_1, ..., B_N that satisfy the following condition.

Condition: For any i, j such that 1 \leq i < j \leq N, A_i B_i = A_j B_j holds.

Find the minimum possible value of B_1 + ... + B_N for such B_1,...,B_N.

Since the answer can be enormous, print the sum modulo (10^9 +7).

Constraints

1 \leq N \leq 10^4

1 \leq A_i \leq 10^6

All values in input are integers.

Input

Input is given from Standard Input in the following format:

N
A_1 ... A_N

Output

Print the minimum possible value of B_1 + ... + B_N for B_1,...,B_N that satisfy the condition, modulo (10^9 +7).

Sample Input 1

3
2 3 4

Sample Output 1

13

Let B_1=6, B_2=4, and B_3=3, and the condition will be satisfied.

Sample Input 2

5
12 12 12 12 12

Sample Output 2

5

We can let all B_i be 1.

Sample Input 3

3
1000000 999999 999998

Sample Output 3

996989508

Print the sum modulo (10^9+7).

Solution in PHP7 (7.0.15) (judge verdict: Accepted)

<?php

const MOD = 1000000007;

fscanf(STDIN, "%d", $n);
$a_list = array_map('intval', explode(' ', trim(fgets(STDIN))));

$a_max = max($a_list);

$numbers = range(3, 1000, 2);
$prime_numbers = [2];
while (count($numbers) > 0) {
    $prime = array_shift($numbers);
    $prime_numbers[] = $prime;
    foreach ($numbers as $key => $number) {
        if ($number % $prime === 0) {
            unset($numbers[$key]);
        }
    }
}

$prime_factorized_lcm = [];
foreach ($a_list as $a) {
    foreach ($prime_numbers as $prime_number) {
        $expo = 0;
        while ($a % $prime_number === 0) {
            ++$expo;
            $a /= $prime_number;
        }

        if (!isset($prime_factorized_lcm[$prime_number]) || $expo > $prime_factorized_lcm[$prime_number]) {
            $prime_factorized_lcm[$prime_number] = $expo;
        }

        if ($a === 1) {
            break;
        }
    }

    if ($a > 1) {
        $prime_factorized_lcm[$a] = 1;
    }
}

$lcm = 1;
foreach ($prime_factorized_lcm as $prime_number => $expo) {
    $lcm = ($lcm * ($prime_number ** $expo)) % MOD;
}

$inv_numbers = [null, 1];
for ($i = 2; $i <= $a_max; ++$i) {
    $inv_numbers[$i] = MOD - $inv_numbers[MOD % $i] * intdiv(MOD, $i) % MOD;
}

$answer = 0;
foreach ($a_list as $a) {
    $answer = ($answer + $lcm * $inv_numbers[$a] % MOD) % MOD;
}

echo $answer;