OFFSET
1,1
COMMENTS
The values of k such that k^k + k^2 + 1 is prime are 0, 1, 2, 5, 8, 9, 14, 27, 38, 62, 255, (4000), .... per Vincenzo Librandi's extension, 2 is an element iff one defines 0^0 = 1.
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..11
MATHEMATICA
f[n_] := (n^n + n^3 + 1); Select[f@ Range@ 40, PrimeQ]
PROG
(Magma) [ a: n in [0..250] | IsPrime(a) where a is n^n+n^3+1 ]; // Vincenzo Librandi, Dec 22 2010
(PARI) for(n=1, 255, if(ispseudoprime(t=n^n+n^3+1), print1(t", "))); v \\ Charles R Greathouse IV, Feb 17 2011
CROSSREFS
KEYWORD
nonn
AUTHOR
Jonathan Vos Post, Aug 03 2006
EXTENSIONS
2 added by Vincenzo Librandi, Dec 22 2010
STATUS
approved