|
|
A048376
|
|
Replace each 1 in decimal expansion of n with 1 1's, each 2 with 2 2's, etc. (0 vanishes).
|
|
10
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|