|
Search: id:A124363
|
|
| |
|
| 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; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
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 this_sequence A044324 A044705 A071844
Adjacent sequences: A124360 A124361 A124362 this_sequence A124364 A124365 A124366
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), May 27 2007
|
|
|
Search completed in 0.002 seconds
|
