OFFSET
1,2
MATHEMATICA
fQ[n_] := PrimeQ[Floor[(Prime[n]/n)^n]]; Do[ If[fQ@n, Print@n], {n, 10000}] (* Robert G. Wilson v Aug 17 2006 *)
CROSSREFS
KEYWORD
more,nonn
AUTHOR
Jason Earls, Aug 11 2006
STATUS
approved