OFFSET
2,2
LINKS
Seiichi Manyama, Table of n, a(n) for n = 2..500
MATHEMATICA
PrimePrevDelta[n_]:=Module[{k}, k=n-1; While[ !PrimeQ[k], k-- ]; k=n-k]; lst={}; Do[AppendTo[lst, PrimePrevDelta[n^n]], {n, 2, 5!}]; lst (* Vladimir Joseph Stephan Orlovsky, Jun 11 2009 *)
lk[n_]:=Module[{nn=n^n}, nn-NextPrime[nn, -1]]; Array[lk, 70, 2] (* Harvey P. Dale, Jan 20 2019 *)
PROG
(PARI) a(n)=(x->x-precprime(x))(n^n) \\ Charles R Greathouse IV, Nov 25 2014
CROSSREFS
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