|
|
A050266
|
|
Primes of the form n^3 + n^2 + 17, for nonnegative values of n.
|
|
32
|
|
|
17, 19, 29, 53, 97, 167, 269, 409, 593, 827, 1117, 1889, 2383, 2957, 3617, 6173, 7237, 9719, 11149, 12713, 16267, 18269, 25247, 27917, 33809, 47969, 56333, 65617, 70619, 75869, 81373, 99469, 112913, 120067, 143329, 151703, 160397, 188459
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
n=-2 produces the prime 13. - Robert Price, Apr 25 2016
|
|
LINKS
|
Vincenzo Librandi, Table of n, a(n) for n = 1..10000
Eric Weisstein's World of Mathematics, Prime-Generating Polynomial.
|
|
MAPLE
|
f:= seq(n^3+n^2+17, n = 0..100); select(isprime, f); # G. C. Greubel, Feb 06 2020
|
|
MATHEMATICA
|
Select[Table[n^3+n^2+17, {n, 0, 100}], PrimeQ] (* Vincenzo Librandi, Dec 08 2011 *)
|
|
PROG
|
(MAGMA) [a: n in [0..100] | IsPrime(a) where a is n^3+n^2+17]; // Vincenzo Librandi, Dec 08 2011
(PARI) for(n=0, 100, my(m=n^3+n^2+17); if(isprime(m), print1(m ", "))) \\ G. C. Greubel, Feb 06 2020
(Sage) [n^3+n^2+17 for n in (0..100) if is_prime(n^3+n^2+17) ] # G. C. Greubel, Feb 06 2020
|
|
CROSSREFS
|
Cf. A331950.
Sequence in context: A065742 A155089 A101396 * A045803 A098933 A145485
Adjacent sequences: A050263 A050264 A050265 * A050267 A050268 A050269
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
Eric W. Weisstein
|
|
EXTENSIONS
|
17 added by Vincenzo Librandi, Dec 08 2011
Altered definition to require that n be nonnegative. - Robert Price, Apr 25 2016
|
|
STATUS
|
approved
|
|
|
|