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