OFFSET
1,2
COMMENTS
LINKS
Eric Weisstein's World of Mathematics, e-Prime
MATHEMATICA
Do[If[PrimeQ[Round[E*10^(n-1)]], Print[n]], {n, 16000}]
CROSSREFS
KEYWORD
nonn,base,more,hard
AUTHOR
XU Pingya, Mar 01 2017
EXTENSIONS
a(2) = 85 added by Jason Yuen, Jun 16 2025
a(8) from Michael S. Branicky, Jun 24 2025
STATUS
approved
