OFFSET
1,1
MATHEMATICA
a[n_] := Module[{e = Floor[10^n*E], s = 0, k = 0}, While[Floor[10^n*s] != e, s += 1/k!; k++]; k - 1]; Array[a, 65] (* Amiram Eldar, Sep 20 2021 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Angad Singh, Sep 20 2021
STATUS
approved