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

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

Offset

1,2

Comments

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

Links

Table of n, a(n) for n=1..9.

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 *)

Crossrefs

Cf. A121623.

Sequence in context: A205875 A243558 A244427 * A103019 A101823 A242421

Adjacent sequences: A121621 A121622 A121623 * A121625 A121626 A121627

Keyword

more,nonn

Author

Jason Earls, Aug 11 2006

Extensions

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

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

Status

approved