

A074967


a(n) = least k such that n^n  k is prime.


5



1, 4, 5, 4, 7, 2, 3, 10, 33, 42, 19, 12, 17, 52, 59, 18, 65, 2, 51, 2, 23, 120, 35, 2, 63, 10, 39, 186, 7, 74, 47, 200, 53, 24, 19, 48, 333, 56, 57, 192, 127, 348, 63, 124, 213, 60, 359, 2, 213, 2, 387, 526, 269, 252, 863, 16, 131, 370, 503, 294, 83, 68, 317
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

2,2


LINKS

Seiichi Manyama, Table of n, a(n) for n = 2..500


MATHEMATICA

PrimePrevDelta[n_]:=Module[{k}, k=n1; While[ !PrimeQ[k], k ]; k=nk]; lst={}; Do[AppendTo[lst, PrimePrevDelta[n^n]], {n, 2, 5!}]; lst (* Vladimir Joseph Stephan Orlovsky, Jun 11 2009 *)
lk[n_]:=Module[{nn=n^n}, nnNextPrime[nn, 1]]; Array[lk, 70, 2] (* Harvey P. Dale, Jan 20 2019 *)


PROG

(PARI) a(n)=(x>xprecprime(x))(n^n) \\ Charles R Greathouse IV, Nov 25 2014


CROSSREFS

Cf. A033933, A074966.
Sequence in context: A085428 A053025 A010664 * A021877 A278713 A200623
Adjacent sequences: A074964 A074965 A074966 * A074968 A074969 A074970


KEYWORD

nonn


AUTHOR

Zak Seidov, Oct 03 2002


EXTENSIONS

More terms from Robert G. Wilson v, Oct 04 2002
Offset corrected by R. J. Mathar, Jun 12 2009


STATUS

approved



