

A267069


Nonnegative numbers n such that abs(103*n^2  4707*n + 50383) is prime.


2



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
(list;
graph;
refs;
listen;
history;
text;
internal format)



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, PrimeGenerating Polynomials


EXAMPLE

4 is in this sequence since 103*4^2  4707*4 + 50383 = 164818828+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^24707*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 * A083243 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



