OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
f[n_]:=n^3+n+1; lst={}; Do[If[PrimeQ[f[n]], AppendTo[lst, f[n]]], {n, 5!}]; lst (* Vladimir Joseph Stephan Orlovsky, Jul 27 2009 *)
Select[Table[n^3+n+1, {n, 0, 800}], PrimeQ] (* Vincenzo Librandi, Jul 17 2012 *)
PROG
(Magma) [a: n in [0..200] | IsPrime(a) where a is n^3+n+1]; // Vincenzo Librandi, Jul 17 2012
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Giovanni Teofilatto, Jul 06 2004
EXTENSIONS
Edited by Rick L. Shepherd, Jul 07 2004
STATUS
approved