A267069 Nonnegative numbers n such that abs(103*n^2 - 4707*n + 50383) 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, 44, 45, 47, 49, 50, 51, 52, 53, 54, 57, 59, 60, 61, 63, 64, 65, 66, 67, 69, 73, 74, 76, 77, 80

Offset

1,3

Comments

43 is the smallest number not in this sequence.

See A267252 for more information. - Hugo Pfoertner, Dec 13 2019

Links

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

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

Example

4 is in this sequence since 103*4^2 - 4707*4 + 50383  = 1648-18828+50383 = 33203 is prime.

Mathematica

Select[Range[0, 100], PrimeQ[103#^2 - 4707# + 50383 ] &]

Prog

(PARI) lista(nn) = for(n=0, nn, if(isprime(abs(103*n^2-4707*n+50383)), print1(n, ", "))); \\ Altug Alkan, Apr 28 2016, corrected by Hugo Pfoertner, Dec 13 2019

Crossrefs

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

Cf. A271980, A272030, A272074, A272075, A272160, A271144, A272285, A267252.

Sequence in context: A272443 A272437 A247151 * A366188 A002837 A271143

Adjacent sequences: A267066 A267067 A267068 * A267070 A267071 A267072

Keyword

nonn

Author

Robert Price, Apr 28 2016

Extensions

Title corrected by Hugo Pfoertner, Dec 13 2019

Status

approved