OFFSET
1,1
COMMENTS
Primes not in A002407.
LINKS
T. D. Noe, Table of n, a(n) for n = 1..1000
MATHEMATICA
nn = 10; c = Select[Table[3 x^2 + 3 x + 1, {x, nn}], PrimeQ[#] &]; Complement[Prime[Range[PrimePi[c[[-1]]]]], c] (* T. D. Noe, Jan 30 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Jan 29 2013
STATUS
approved