OFFSET
1,2
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
12 -> 122, 123->122333.
MATHEMATICA
With[{rules=Table[n->Table[n, {n}], {n, 0, 9}]}, Table[FromDigits[ Flatten[ IntegerDigits[x]/.rules]], {x, 40}]] (* Harvey P. Dale, Oct 09 2011 *)
PROG
(PARI) A048376(n)={sum(i=1, #n=concat( apply( t->vector(t, i, t), digits(n) )), n[i]*10^(#n-i))} \\ M. F. Hasler, Jan 23 2013
CROSSREFS
KEYWORD
nonn,easy,base,nice
AUTHOR
Patrick De Geest, Mar 15 1999
STATUS
approved