|
| |
|
|
A217604
|
|
Primes or negative values of primes of the form 59*n^2 - 1873*n + 8941 for n>=0.
|
|
1
|
|
|
|
8941, 7127, 5431, 3853, 2393, 1051, -173, -1279, -2267, -3137, -3889, -4523, -5039, -5437, -5717, -5879, -5923, -5849, -5657, -5347, -4919, -4373, -3709, -2927, -2027, -1009, 127, 1381, 2753, 4243, 5851, 7577, 9421, 11383, 13463, 15661, 17977, 20411, 22963, 25633, 31327, 34351
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
COMMENTS
|
Terms are listed in the order of appearance. The absolute values are primes for 0 <= n <= 39.
|
|
|
LINKS
|
Table of n, a(n) for n=1..42.
Eric Weisstein's World of Mathematics, Prime Generating Polynomials
|
|
|
MAPLE
|
A217604:=proc(i)
local a, n;
for n from 0 to i do a:=59*n^2-1873*n+8941; if isprime(abs(a)) then
print(a); fi; od; end:
A217604(100); # Paolo P. Lava, Oct 11 2012
|
|
|
MATHEMATICA
|
Select[Table[59*n^2-1873*n+8941, {n, 0, 50}], PrimeQ[#]&]
|
|
|
PROG
|
(PARI) [n | n <- apply(m->59*m^2-1873*m+8941, [0..100]), isprime(abs(n))] \\ Charles R Greathouse IV, Jun 18 2017
|
|
|
CROSSREFS
|
Cf. A050267, A050268, A217439, A217440.
Sequence in context: A290811 A259631 A251921 * A218389 A180298 A322537
Adjacent sequences: A217601 A217602 A217603 * A217605 A217606 A217607
|
|
|
KEYWORD
|
sign,easy,less
|
|
|
AUTHOR
|
Pedja Terzic, Oct 08 2012
|
|
|
EXTENSIONS
|
More terms (to distinguish from quadratic) from Charles R Greathouse IV, Jun 18 2017
|
|
|
STATUS
|
approved
|
| |
|
|
