OFFSET
1,1
COMMENTS
1/e = 0.36787944117144232159....
LINKS
Matthew House, Table of n, a(n) for n = 1..996
MAPLE
Digits := 10000: p0 := evalf(1/exp(1))*10:for d from 1 to 20 do: id:=0:for
i from 0 to 50000 while(id=0) do :q0:=trunc(p0*10^(i+d-1)): x:= irem(q0, 10^d):
if type(x, prime)=true and length(x)=d then printf(`%d, `, x):id:=1: else fi:od:od:
MATHEMATICA
With[{x=RealDigits[1/E, 10, 1000][[1]]}, Table[FromDigits[ First[ Select[ Partition[x, n, 1], PrimeQ[FromDigits[#]]&]]], {n, 20}]] (* Harvey P. Dale, Feb 17 2011 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Michel Lagneau, Feb 15 2011
STATUS
approved