1,2

fQ[n_] := PrimeQ[Floor[(Prime[n]/n)^n]]; Do[ If[fQ@n, Print@n], {n, 10000}] (* Robert G. Wilson v Aug 17 2006 *)

Cf. A121623.

Sequence in context: A077237 A056879 A006746 this_sequence A103019 A101823 A093397

Adjacent sequences: A121621 A121622 A121623 this_sequence A121625 A121626 A121627

more,nonn

Jason Earls (zevi_35711(AT)yahoo.com), Aug 11 2006