A238673 First prime p such that (p+n)^2+n is prime but (p+j)^2+j is not prime for all 0

3, 7, 11, 29, 193, 139, 107, 181, 101, 17, 379, 641, 167, 3691, 257, 2243, 1279, 1217, 3581, 757, 6113, 971, 5011, 5843, 317, 15199, 2741, 761, 59221, 6067, 14423, 5167, 13043, 3191, 43321, 8819, 2333, 23497, 15083, 15107, 414769, 13841, 20477, 29101, 3137

Offset: 1

Author

Alois P. Heinz, Mar 02 2014

Keywords

• nonn

Links

• Alois P. Heinz, Table of n, a(n) for n = 1..130

Crossrefs

Row n=1 of A238086.

Programs

Mathematica

pQ[n_]:=Module[{pr=2,c},c=Table[(pr+i)^2+i,{i,n}];While[!PrimeQ[ Last[ c]]|| AnyTrue[Most[c],PrimeQ],pr=NextPrime[pr];c=Table[(pr+i)^2+i,{i,n}]];pr]; Array[pQ,50] (* Harvey P. Dale, Nov 18 2014 *)