eval'N,P='+`tr \\  ,`
a=[x=0]*-~N
2.upto(N){|i|j=i
a[j]+=1until N<j+=i
x+=(1-P)**a[i]}
p x