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

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

Offset

1,2

Links

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

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

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

Status

approved