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

Cf. A048377, A057628, A057630.

Sequence in context: A025936 A369132 A158849 * A053422 A000461 A216730

Adjacent sequences: A048373 A048374 A048375 * A048377 A048378 A048379

Keyword

nonn,easy,base,nice

Author

Patrick De Geest, Mar 15 1999

Status

approved