A033564 a(n+1) = concatenation of a(n) and a(n)+1, with a(0)=1.
1, 12, 1213, 12131214, 1213121412131215, 12131214121312151213121412131216, 1213121412131215121312141213121612131214121312151213121412131217
Offset: 0
Programs
-
Mathematica
NestList[FromDigits[Join[IntegerDigits[#],IntegerDigits[#+1]]]&,1,6] (* Jayanta Basu, May 20 2013 *)
Comments