OFFSET
1,1
MATHEMATICA
b = RealDigits[N[1/E, 1000]]; b = First[b]; a = {}; Do[k = b[[n + 1]] - b[[n]]; AppendTo[a, k], {n, 1, 999}]; a (*Artur Jasinski*)
Differences[RealDigits[1/E, 10, 120][[1]]] (* Harvey P. Dale, Sep 14 2016 *)
CROSSREFS
KEYWORD
sign
AUTHOR
Artur Jasinski, Mar 16 2008
STATUS
approved