|
| |
| |
|
|
|
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;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
COMMENTS
|
First differences of A138793 divided by 10^n
|
|
|
LINKS
|
Table of n, a(n) for n=1..25.
|
|
|
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 * A177895 A189506 A173529
Adjacent sequences: A138792 A138793 A138794 * A138796 A138797 A138798
|
|
|
KEYWORD
|
base,nonn
|
|
|
AUTHOR
|
Artur Jasinski, Mar 30 2008
|
|
|
STATUS
|
approved
|
| |
|
|
