A138361 First differences of A068985.
3, 1, 1, -1, 2, -5, 0, -3, 0, 6, -6, 3, 0, -2, 1, -1, -1, 4, 4, -4, 0, -3, 1, 4, 0, -7, 1, 5, -5, 3, 2, -6, 8, -2, 1, -3, 0, 1, 3, -7, 0, 0, 2, -2, -1, 3, -2, 6, -1, 1, 1, -5, 1, 1, -5, 7, 1, -5, 3, 2, -8, 1, 5, 3, -2, -3, 2, -5, 3, 5, -4, 2, -3, 0, 4, 1, 0, -1, -8, 3, 0, 2, 2, -6, 3, 3, -5, 5, -3, -1, 1, 1, 4, -8, 8, -3, -2, -1, 4, -3, 2, 0, -4, 5, -4, -1, 3
Offset: 1
Keywords
Programs
-
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 *)