OFFSET
1,1
COMMENTS
First differences of A138793 divided by 10^n
MATHEMATICA
b = {}; a = {}; Do[w = RealDigits[n]; w = First[w]; Do[AppendTo[a, w[[k]]], {k, 1, Length[w]}]; p = FromDigits[Reverse[a]]; AppendTo[b, p], {n, 1, 61}]; c = {}; Do[AppendTo[c, (b[[n + 1]] - b[[n]])/(10^n)], {n, 1, Length[b] - 1}]; c (*Artur Jasinski*)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Artur Jasinski, Mar 30 2008
STATUS
approved