OFFSET
1,1
COMMENTS
The term a(6) has 291 digits.
MATHEMATICA
f[n_]:=n^n+(n+1)^(n+1)-2; lst={}; Do[If[PrimeQ[f[n]], AppendTo[lst, f[n]]], {n, 2*5!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jul 17 2009
EXTENSIONS
Edited by R. J. Mathar, Jul 19 2009
STATUS
approved