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

Author

Robert Price, May 06 2016

Keywords

• nonn

Comments

80 is the smallest number not in this sequence.

See A005846 for the corresponding primes.

Examples

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

Links

• Robert Price, Table of n, a(n) for n = 1..4179
• Eric Weisstein's World of Mathematics, Prime-Generating Polynomials

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.

Programs

Mathematica

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

PARI

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