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
AUTHOR
XU Pingya, Mar 01 2017
STATUS
approved