A095692 Primes of the form n^3 + n + 1.

3, 11, 31, 131, 223, 521, 739, 1741, 3391, 4931, 5851, 9283, 24419, 27031, 32801, 59359, 68963, 74131, 85229, 110641, 148931, 157519, 175673, 216061, 328579, 357983, 405299, 456611, 571871, 658591, 857471, 1061311, 1124969, 1259821

Offset: 1

Author

Giovanni Teofilatto, Jul 06 2004

Keywords

• nonn
• easy

Links

• Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A049407 (corresponding n).

Programs

Magma

[a: n in [0..200] | IsPrime(a) where a is n^3+n+1]; // Vincenzo Librandi, Jul 17 2012

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 *)

Extensions

Edited by Rick L. Shepherd, Jul 07 2004