OFFSET
1,2
COMMENTS
a(5) > 10^4.
LINKS
Eric Weisstein's World of Mathematics, ConstantPrimes
Eric Weisstein's World of Mathematics, IntegerSequencePrimes
MATHEMATICA
nn=1100; With[{c=RealDigits[E^(2*EulerGamma), 10, nn][[1]]}, Select[ Range[ nn], PrimeQ[FromDigits[Take[c, #]]]&]] (* Harvey P. Dale, Nov 13 2014 *)
CROSSREFS
KEYWORD
nonn,more,base
AUTHOR
Robert Price, Aug 26 2013
STATUS
approved