

A052246


Concatenation of integers from n down to 0.


1



0, 10, 210, 3210, 43210, 543210, 6543210, 76543210, 876543210, 9876543210, 109876543210, 11109876543210, 1211109876543210, 131211109876543210, 14131211109876543210, 1514131211109876543210, 161514131211109876543210
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

0,2


LINKS

Table of n, a(n) for n=0..16.


FORMULA

a(0)=0, a(n) = n*10^len(a(n1)) + a(n1), where len(k) = number of digits in k and len(0)=1; =A000422*10


MATHEMATICA

nn=20; With[{c=Range[nn, 0, 1]}, Table[FromDigits[Flatten[ IntegerDigits/@ Take[ c, n]]], {n, nn}]] (* Harvey P. Dale, Feb 01 2013 *)


PROG

(PARI) /* computation by definition: */
a(n)=if(n==0, 0, eval(Str(n, a(n1)))); \\ Joerg Arndt, Sep 14 2014


CROSSREFS

Cf. A000422.
Sequence in context: A160476 A067642 A052245 * A001450 A076803 A120596
Adjacent sequences: A052243 A052244 A052245 * A052247 A052248 A052249


KEYWORD

base,easy,nonn


AUTHOR

Henry Bottomley, Feb 01 2000


STATUS

approved



