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