|
| |
|
|
A124363
|
|
a(n) = n^3 + 71*n + 1
|
|
0
| |
|
|
1, 73, 151, 241, 349, 481, 643, 841, 1081, 1369, 1711, 2113, 2581, 3121, 3739, 4441, 5233, 6121, 7111, 8209, 9421, 10753, 12211, 13801, 15529, 17401, 19423, 21601, 23941, 26449, 29131, 31993, 35041, 38281, 41719, 45361, 49213, 53281, 57571
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
COMMENTS
| A prime-producing polynomial from a paper by Kermit Rose.
Produces 51 primes between 0 and 99: Length[Flatten[Table[If[PrimeQ[n^3 + 71*n + 1], n^3 + 71*n + 1, {}], {n, 0, 99}]]]
|
|
|
REFERENCES
| Prime-Producing Cubic Polynomials (Make Corrections) Joe L. Mott, KERMIT ROSE http://citeseer.ist.psu.edu/403593.html
|
|
|
MATHEMATICA
| Table[n^3 + 71*n + 1, {n, 0, 99}]
|
|
|
CROSSREFS
| Sequence in context: A037994 A138642 A142179 * A044324 A044705 A071844
Adjacent sequences: A124360 A124361 A124362 * A124364 A124365 A124366
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), May 27 2007
|
| |
|
|
