A272813 Nonnegative numbers n such that n^2 - 79n + 1601 is prime.

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66

Offset

1,3

Comments

80 is the smallest number not in this sequence.

See A005846 for the corresponding primes.

Links

Robert Price, Table of n, a(n) for n = 1..4179

Eric Weisstein's World of Mathematics, Prime-Generating Polynomials

Example

4 is in this sequence since 4^2 - 79*4 + 1601 = 16-316+1601 = 1301 is prime.

Mathematica

Select[Range[0, 100], PrimeQ[#^2 - 79# + 1601 ] &]

Prog

(PARI) lista(nn) = for(n=0, nn, if(isprime(n^2-79*n+1601), print1(n, ", "))); \\ Altug Alkan, May 06 2016

Crossrefs

Cf. A050268, A050267, A005846, A007641, A007635, A048988, A050265, A050266.

Cf. A271980, A272030, A272074, A272075, A272160, A271144, A272285, A272401, A272438, A272444, A272410, A272555, A272710, A005846.

Sequence in context: A038608 A105811 A209662 * A258070 A258071 A266279

Adjacent sequences: A272810 A272811 A272812 * A272814 A272815 A272816

Keyword

nonn

Author

Robert Price, May 06 2016

Status

approved