|
%I #12 Aug 28 2020 03:08:33
%S 5,-6,7,-6,6,-7,7,-6,6,-4,1,4,-9,4,1,-3,1,2,-2,3,-6,2,6,-1,-3,3,-6,2,
%T 2,-3,4,0,-4,2,5,-2,0,-2,2,-5,2,3,-7,9,-6,3,3,0,0,-4,4,-4,2,-3,5,-3,0,
%U 3,-3,1,-1,-4,5,0,-5,2,-4,7,-1,0,-3,-3,3,2,-2,2,-1,3,-2,4,-5,1,2,-6,2,5,-6,-1,6,1,-3,-3,3,-4,5,0,-2,-2,5,-3
%N Differences between adjacent digits of e.
%t b = RealDigits[N[E, 1000]]; b = First[b]; a = {}; Do[k = b[[n + 1]] - b[[n]]; AppendTo[a, k], {n, 1, 999}]; a (* _Artur Jasinski_, Mar 16 2008 *)
%t Differences[RealDigits[E,10,120][[1]]] (* _Harvey P. Dale_, Dec 27 2018 *)
%Y Cf. A001113, A138345.
%K base,sign
%O 1,1
%A Herman Jamke (hermanjamke(AT)fastmail.fm), Jul 13 2004
%E More terms from _Artur Jasinski_, Mar 16 2008
|
