OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Table[n^4 + n + 1, {n, 100}], PrimeQ]
PROG
(Magma) [a: n in [0..200] | IsPrime(a) where a is n^4+n+1];
(PARI) lista(nn) = {for(n=1, nn, if(ispseudoprime(p=n^4+n+1), print1(p, ", "))); } \\ Altug Alkan, May 04 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Vincenzo Librandi, May 03 2016
STATUS
approved