OFFSET
1,1
COMMENTS
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
Do[If[Ceiling[Prime[n]^(1/3)]^3 == Ceiling[Prime[n]^(1/2)]^2, Print[n]], {n, 10000}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Oct 10 2008
STATUS
approved