a=[0]
k=1
i=1
while i<1000000 do
	a[i] = i
	i+=1
end
a[1]=0
i=2
z=2
while i<1000 do
	j=1
	while j<1000000 do
		c=a[j]
		if  c % i == 0 && c != 0 then
			a[j]=0
			puts c
		end
		j+=1
	end
	k+=1
	while a[k]==0 do
		k+=1
	end
	i+=1
end
j=1
x=0
while j<1000000 do
	x+=a[j]
	j+=1
end
puts x