A121624 Numbers k such that floor((prime(k)/k)^k) is prime.

1, 2, 6, 9, 26, 179, 289, 25564, 109436

Offset: 1

Author

Jason Earls, Aug 11 2006

Keywords

• more
• nonn

Comments

a(9) > 39637. - J.W.L. (Jan) Eerland, Nov 11 2024

Crossrefs

Cf. A121623.

Programs

Mathematica

fQ[n_] := PrimeQ[Floor[(Prime[n]/n)^n]]; Do[ If[fQ@n, Print@n], {n, 10000}] (* Robert G. Wilson v Aug 17 2006 *)
n=1;Monitor[Parallelize[While[True,If[PrimeQ[Floor[(Prime[n]/n)^n]],Print[n]];n++];n],n] (* J.W.L. (Jan) Eerland, Nov 11 2024 *)

Extensions

a(8) from J.W.L. (Jan) Eerland, Nov 11 2024

a(9) from Michael S. Branicky, Mar 02 2025