|
| |
|
|
A078998
|
|
Choose a(n) so that a(1)+a(2)+...+a(n) = concatenation of n first natural numbers.
|
|
0
| |
|
|
1, 11, 111, 1111, 11111, 111111, 1111111, 11111111, 111111111, 12222222121, 1222222212101, 122222221210101, 12222222121010101, 1222222212101010101, 122222221210101010101, 12222222121010101010101
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
FORMULA
| a(1)=1; for n>1, a(n) = A007908(n)-A007908(n-1)
|
|
|
MATHEMATICA
| b = {}; a = {}; Do[w = RealDigits[n]; w = First[w]; Do[AppendTo[a, w[[k]]], {k, 1, Length[w]}]; p = FromDigits[a]; AppendTo[b, p], {n, 1, 30}]; c = {}; Do[AppendTo[c, b[[n + 1]] - b[[n]]], {n, 1, Length[b] - 1}]; c - Artur Jasinski (grafix(AT)csl.pl), Mar 30 2008
|
|
|
CROSSREFS
| Cf. A000422, A116504, A007908, A116505, A104759, A138789, A138790, A138793.
Sequence in context: A000042 A135463 A002275 * A078191 A097115 A134732
Adjacent sequences: A078995 A078996 A078997 * A078999 A079000 A079001
|
|
|
KEYWORD
| nonn,base
|
|
|
AUTHOR
| Benoit Cloitre (benoit7848c(AT)orange.fr), Jan 12 2003
|
| |
|
|
