OFFSET
1,1
COMMENTS
a(53) > 10^6.
LINKS
Robert Price, Table of n, a(n) for n = 1..52
MATHEMATICA
Select[Range[1, 10^6], PrimeQ[(10^10000 + #)^2 + (10^10000 + #) + 1] &]
PROG
(PARI) is(k)=ispseudoprime(subst('x^2+'x+1, 'x, 10^10000+k)) \\ Charles R Greathouse IV, Aug 05 2015
(PFGW) ABC2 (10^10000+$a)^2 + (10^10000+$a) + 1
a: from 1 to 10000
Charles R Greathouse IV, Aug 05 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert Price, Aug 05 2015
STATUS
approved