|
Search: id:A117081
|
|
|
| A117081 |
|
a(n) = 36*n^2-810*n+2753. |
|
+0
2
|
|
| 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; listen)
|
|
|
OFFSET
|
0,1
|
|
|
COMMENT
|
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}]
|
|
PROGRAM
|
(PARI) {for(n=0, 46, print1(36*n^2-810*n+2753, ", "))}
|
|
CROSSREFS
|
Cf. A050268.
Sequence in context: A045151 A122107 A050268 this_sequence A014487 A043665 A046332
Adjacent sequences: A117078 A117079 A117080 this_sequence A117082 A117083 A117084
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Apr 17 2006
|
|
EXTENSIONS
|
Edited by njas, Apr 27 2007
|
|
|
Search completed in 0.002 seconds
|
