|
%I #6 Nov 21 2013 12:48:15
%S 0,0,0,1,0,1,0,1,1,2,0,0,1,2,2,1,1,1,1,1,2,2,0,1,1,2,2,1,0,2,2,2,3,1,
%T 3,4,2,4,2,4,2,1,1,2,3,2,2,2,2,1,3,4,1,2,2,1,5,2,2,4,3,4,1,2,4,3,3,5,
%U 2,3,2,3,3,5,5,4,2,4,5,2,5,2,4,3,5,2,6,3,5,4,6,1,4,6,5,4,7,6,6,4,2,3,4,4,4
%N Number of primes between n^2 and (n+1/5)^2.
%t Table[PrimePi[(n+1/5)^2]-PrimePi[n^2],{n,110}] (* _Harvey P. Dale_, Nov 10 2011 *)
%o (PARI) pbetweensq2(n) = { for(x=1,n, c=0; for(y=floor(x)^2,(x+1/5)^2, if(isprime(y),c++) ); print1(c",") ) }
%K easy,nonn
%O 1,10
%A _Cino Hilliard_, Dec 30 2003
|
