OFFSET
1,1
COMMENTS
Leading zeros are not permitted, so each prime is 10 digits in length. The terms are listed in the order in which they occur.
LINKS
Bruno Berselli, Table of n, a(n) for n = 1..1000
Simon Plouffe, exp(Pi) to 5000 digits
MATHEMATICA
With[{len = 10}, FromDigits /@ Select[Partition[RealDigits[E^Pi, 10, 600][[1]], len, 1], PrimeQ[FromDigits[#]] && IntegerLength[FromDigits[#]] == len &]]
Select[FromDigits/@Partition[RealDigits[Exp[Pi], 10, 600][[1]], 10, 1], PrimeQ[ #] && IntegerLength[#]==10&] (* Harvey P. Dale, Aug 27 2020 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Bruno Berselli, Apr 30 2013
STATUS
approved