OFFSET
1,1
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..130
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 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Alois P. Heinz, Mar 02 2014
STATUS
approved