OFFSET
1,1
COMMENTS
MATHEMATICA
k=1.647862393566467; Table[Length[Select[Range[Ceiling[n^k], Floor[(n+1)^k]], PrimeQ]], {n, 150}] (* T. D. Noe, Sep 04 2008 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Dmitry Kamenetsky, Jan 11 2008
EXTENSIONS
Corrected by T. D. Noe, Sep 04 2008
STATUS
approved