|
Search: id:A138795
|
|
| |
|
| 2, 3, 4, 5, 6, 7, 8, 9, 1, 110, 2100, 31000, 410000, 5100000, 61000000, 710000000, 8100000000, 91000000000, 20000000000, 1200000000000, 22000000000000, 320000000000000, 4200000000000000, 52000000000000000, 620000000000000000
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
First differences of A138793 divided by 10^n
|
|
FORMULA
|
a(n) = A138793(n+1)-A138793(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
|
Cf. A000422, A116504, A007908, A116505, A104759, A138789, A138790, A138793, A075019, A075020, A075021, A075022, A138794.
Sequence in context: A121760 A061816 A083960 this_sequence A093017 A028897 A156230
Adjacent sequences: A138792 A138793 A138794 this_sequence A138796 A138797 A138798
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
Artur Jasinski (grafix(AT)csl.pl), Mar 30 2008
|
|
|
Search completed in 0.003 seconds
|
