|
| |
|
|
A050268
|
|
Primes of the form 36*n^2 - 810*n + 2753, n >= 0.
|
|
7
| |
|
|
2753, 1979, 1277, 647, 89, 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, 41669, 44207, 46817, 49499, 52253
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
LINKS
| Vincenzo Librandi, Table of n, a(n) for n = 1..10000
Eric Weisstein's World of Mathematics, Prime-Generating Polynomial
|
|
|
MAPLE
| t1:=[seq(36*n^2 - 810*n + 2753, n=0..100)]; t2:=[]; for i from 1 to nops(t1) do if isprime(t1[i]) then t2:=[op(t2), t1[i]]; fi; od: t2; (N. J. A. Sloane)
|
|
|
MATHEMATICA
| Select[Table[36n^2-810n+2753, {n, 0, 2000}], PrimeQ] (* Vincenzo Librandi, Dec 08 2011 *)
|
|
|
PROG
| (PARI) select(isprime, vector(1000, n, 36*n^2-810*n+2753)) \\ Charles R Greathouse IV, Feb 14 2011
(MAGMA) [a: n in [0..100] | IsPrime(a) where a is 36*n^2 - 810*n + 2753]; // Vincenzo Librandi, Dec 08 2011
|
|
|
CROSSREFS
| Cf. A022464.
Sequence in context: A112516 A045151 A122107 * A117081 A164065 A014487
Adjacent sequences: A050265 A050266 A050267 * A050269 A050270 A050271
|
|
|
KEYWORD
| nonn,easy
|
|
|
AUTHOR
| Eric Weisstein (eric(AT)weisstein.com)
|
| |
|
|
