A138795 - OEIS

%I #2 Mar 31 2012 10:22:07

%S 2,3,4,5,6,7,8,9,1,110,2100,31000,410000,5100000,61000000,710000000,

%T 8100000000,91000000000,20000000000,1200000000000,22000000000000,

%U 320000000000000,4200000000000000,52000000000000000,620000000000000000

%N a(n) = (A138793(n+1)-A138793(n))/10^n.

%C First differences of A138793 divided by 10^n

%F a(n) = A138793(n+1)-A138793(n)

%t 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*)

%Y Cf. A000422, A116504, A007908, A116505, A104759, A138789, A138790, A138793, A075019, A075020, A075021, A075022, A138794.

%K base,nonn

%O 1,1

%A _Artur Jasinski_, Mar 30 2008