login
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
OFFSET
1,1
LINKS
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
KEYWORD
nonn,easy
AUTHOR
Giovanni Teofilatto, Jul 06 2004
EXTENSIONS
Edited by Rick L. Shepherd, Jul 07 2004
STATUS
approved