login
Choose a(n) so that a(1)+a(2)+...+a(n) = concatenation of n first natural numbers.
0

%I #10 Aug 28 2020 03:06:38

%S 1,11,111,1111,11111,111111,1111111,11111111,111111111,12222222121,

%T 1222222212101,122222221210101,12222222121010101,1222222212101010101,

%U 122222221210101010101,12222222121010101010101

%N Choose a(n) so that a(1)+a(2)+...+a(n) = concatenation of n first natural numbers.

%F a(1)=1; for n>1, a(n) = A007908(n)-A007908(n-1)

%t 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_, Mar 30 2008 *)

%Y Cf. A000422, A116504, A007908, A116505, A104759, A138789, A138790, A138793.

%K nonn,base

%O 1,2

%A _Benoit Cloitre_, Jan 12 2003