N=1000000000
window=10**7

target=31622
d=[0]*target
k=2
while k < target:
    for i in range(k*k,target,k):
        d[i]=d[i]+1
    k+=1
    while k < target and d[k]>0:
        k+=1
primeList=[k for k in range(2,target) if d[k]==0]

res=0
end=1
while end < N:
    start=end
    end+=window
    f=[0]*window
    d=list(range(start,end))
    for p in primeList:
        a=(p-start%p) if start%p>0 else 0
        for i in range(start+a,end,p):
            f[i-start]+=1
            while d[i-start]%p==0:
                d[i-start]//=p
  
    for i in range(start,end):
        x=i-start
        if d[x]>1:
            f[x]+=1
        sub1=1+(i%3>0)
        sub2=1+(i%3==2)
        sub3=0
        sub4=0+(i%3 < 2)
        if i%2==1:
            sub1*=3
            sub2*=2
            sub4*=2
            if i%3==1:
                sub3+=1
            else:
                sub4+=1
        total=(sub1+sub2+sub3)*(N//i)+sub4*(N//(3*i))
        res+=total*(1 << (f[x]-1)) if f[x]>0 else total//(1 << (1-f[x]))
    if (end-1)%window==0:
        print end//window, "percent completed, current sum:",res

print 2*res