A048376 Replace each 1 in decimal expansion of n with 1 1's, each 2 with 2 2's, etc. (0 vanishes).
1, 22, 333, 4444, 55555, 666666, 7777777, 88888888, 999999999, 1, 11, 122, 1333, 14444, 155555, 1666666, 17777777, 188888888, 1999999999, 22, 221, 2222, 22333, 224444, 2255555, 22666666, 227777777, 2288888888, 22999999999, 333, 3331
Offset: 1
Examples
12 -> 122, 123->122333.
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
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 *) -
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