login
Replace each 1 in decimal expansion of n with 1 1's, each 2 with 2 2's, etc. (0 vanishes).
10

%I #13 Jun 25 2016 05:51:05

%S 1,22,333,4444,55555,666666,7777777,88888888,999999999,1,11,122,1333,

%T 14444,155555,1666666,17777777,188888888,1999999999,22,221,2222,22333,

%U 224444,2255555,22666666,227777777,2288888888,22999999999,333,3331

%N Replace each 1 in decimal expansion of n with 1 1's, each 2 with 2 2's, etc. (0 vanishes).

%H Harvey P. Dale, <a href="/A048376/b048376.txt">Table of n, a(n) for n = 1..1000</a>

%e 12 -> 122, 123->122333.

%t With[{rules=Table[n->Table[n,{n}],{n,0,9}]},Table[FromDigits[ Flatten[ IntegerDigits[x]/.rules]],{x,40}]] (* _Harvey P. Dale_, Oct 09 2011 *)

%o (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

%Y Cf. A048377, A057628, A057630.

%K nonn,easy,base,nice

%O 1,2

%A _Patrick De Geest_, Mar 15 1999