/*CodeForces839D[莫比乌斯反演]*/
#include <bits/stdc++.h>
typedef long long LL;
const LL MOD = 1000000007LL;
using namespace std;
int n, maxa = 0, mina = 0x3f3f3f3f;
LL m[200005], F[1000005], f[1000005];
int sum[1000005], a[200005];
int prime[1000005], vis[1000005], mu[1000005];
void mo_init(int N) {
memset(vis, 0, sizeof(vis));
mu[1] = 1;
int cnt = 0;
for (int i = 2; i < N; i++)
{
if (!vis[i])
{
prime[cnt++] = i;
mu[i] = -1;
}
for (int j = 0; j < cnt && i * prime[j] < N; j++)
{
vis[i * prime[j]] = 1;
if (i % prime[j]) mu[i * prime[j]] = -mu[i];
else
{
mu[i * prime[j]] = 0;
break;
}
}
}
}
void solve() {
for (int i = 0; i < n; i++) {
for (int j = 1; j * j <= a[i]; j++) {
if (a[i] % j == 0) {
if (j * j == a[i]) {
sum[j]++;
}
else {
sum[j]++, sum[a[i] / j]++;
}
}
}
}
LL ans = 0;
for (int i = 2; i <= maxa; i++) {
F[i] = sum[i] * m[sum[i] - 1] % MOD;
}
for (int i = 2; i <= maxa; i++) {
for (int j = i; j <= maxa; j += i) {
f[i] = (f[i] + mu[j / i] * F[j] % MOD) % MOD;
}
ans = (ans + f[i] * i % MOD) % MOD;
}
printf("%lld
", ans);
}
void init() {
mo_init(1000002);
m[0] = 1LL;
for (int i = 1; i <= n; i++) {
m[i] = m[i - 1] * 2LL % MOD;
}
}
int main() {
scanf("%d", &n);
for (int i = 0; i < n; i++) {
scanf("%d", &a[i]);
maxa = max(maxa, a[i]);
mina = min(mina, a[i]);
} init(), solve();
return 0;
}