OFFSET
1,2
COMMENTS
Leading zeros are not allowed.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..200
EXAMPLE
a(1) = 1 because the initial digit "2" of e is prime.
MATHEMATICA
With[{ed = RealDigits[E, 10, 10000][[1]]}, Table[Position[Partition[ed, n, 1], _?(PrimeQ[FromDigits[#]] && #[[1]] != 0 &), {1}, 1, Heads -> False], {n, 100}]] // Flatten
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Harvey P. Dale, Apr 25 2016
STATUS
approved