|
Search: id:A138794
|
|
| |
|
| 20, 300, 4000, 50000, 600000, 7000000, 80000000, 900000000, 1000000000, 1100000000000, 210000000000000, 31000000000000000, 4100000000000000000, 510000000000000000000, 61000000000000000000000
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
First differences of A138793
|
|
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, 31}]; c = {}; Do[AppendTo[c, b[[n + 1]] - b[[n]]], {n, 1, Length[b] - 1}]; c (*Artur Jasinski*)
|
|
CROSSREFS
|
Cf. A000422, A116504, A007908, A116505, A104759, A138789, A138790, A138793, A075019, A075020, A075021, A075022.
Adjacent sequences: A138791 A138792 A138793 this_sequence A138795 A138796 A138797
Sequence in context: A069326 A001708 A016255 this_sequence A077758 A053541 A004345
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Artur Jasinski (grafix(AT)csl.pl), Mar 30 2008
|
|
|
Search completed in 0.002 seconds
|
