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,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

Cf. A049407 (corresponding n).

Sequence in context: A106934 A146581 A146456 * A163421 A173381 A076477

Adjacent sequences: A095689 A095690 A095691 * A095693 A095694 A095695

Keyword

nonn,easy

Author

Giovanni Teofilatto, Jul 06 2004

Extensions

Edited by Rick L. Shepherd, Jul 07 2004

Status

approved