OFFSET
1,1
MATHEMATICA
nxt[n_]:=Module[{nn=n^n, k=1}, While[!PrimeQ[k nn+1]||!PrimeQ[k nn-1], k++]; k]; Array[nxt, 50] (* Harvey P. Dale, Jun 30 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Jason Earls, Nov 18 2002
STATUS
approved