|
| |
|
|
A117081
|
|
a(n) = 36*n^2-810*n+2753.
|
|
1
| |
|
|
2753, 1979, 1277, 647, 89, -397, -811, -1153, -1423, -1621, -1747, -1801, -1783, -1693, -1531, -1297, -991, -613, -163, 359, 953, 1619, 2357, 3167, 4049, 5003, 6029, 7127, 8297, 9539, 10853, 12239, 13697, 15227, 16829, 18503, 20249, 22067, 23957, 25919, 27953, 30059, 32237, 34487, 36809, 39203, 41669
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,1
|
|
|
COMMENTS
| The absolute values of a(n) for 0 <= n <= 44 are primes, a(45) = 39203 = 197*199.
The positive prime terms are in A050268.
|
|
|
LINKS
| C. Rivera, Problem 12: Prime producing polynomials
Eric Weisstein's World of Mathematics, Prime-Generating Polynomial
|
|
|
MATHEMATICA
| f[n_] := If[Mod[n, 2] == 1, 36*n^2 - 810*n + 2753, 36*n^2 - 810*n + 2753] a = Table[f[n], {n, 0, 100}]
|
|
|
PROG
| (PARI) {for(n=0, 46, print1(36*n^2-810*n+2753, ", "))}
|
|
|
CROSSREFS
| Cf. A050268.
Sequence in context: A045151 A122107 A050268 * A164065 A014487 A043665
Adjacent sequences: A117078 A117079 A117080 * A117082 A117083 A117084
|
|
|
KEYWORD
| sign
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Apr 17 2006
|
|
|
EXTENSIONS
| Edited by N. J. A. Sloane (njas(AT)research.att.com), Apr 27 2007
|
| |
|
|
