OFFSET
1,1
COMMENTS
a(39) = 43 and all other terms > 128865958933.
LINKS
R. A. Mollin, Prime-producing quadratics, Amer. Math. Monthly 104 (1997), 529-544.
MATHEMATICA
Table[p = 2; While[! (Union[Table[PrimeQ[x^2 + 3*x + p], {x, 0, n - 1}]] == {True} && PrimeQ[n^2 + 3*n + p] == False), p = NextPrime[p]]; p, {n, 9}] (* T. D. Noe, Oct 29 2013 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Zak Seidov, Oct 27 2013
STATUS
approved