

A095692


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


6



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
(list;
graph;
refs;
listen;
history;
text;
internal format)



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



