|
|
A048377
|
|
Append d digits d after each digit d in decimal expansion of n.
|
|
5
|
|
|
0, 11, 222, 3333, 44444, 555555, 6666666, 77777777, 888888888, 9999999999, 110, 1111, 11222, 113333, 1144444, 11555555, 116666666, 1177777777, 11888888888, 119999999999, 2220, 22211, 222222, 2223333, 22244444, 222555555, 2226666666
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
12 becomes 1 1 2 22 = 11222.
|
|
MATHEMATICA
|
den[n_]:=Module[{idn=IntegerDigits[n]}, FromDigits[Flatten[Table[ Table[ idn[[i]], {idn[[i]]+1}], {i, Length[idn]}]]]]; Array[den, 30, 0] (* Harvey P. Dale, Sep 04 2013 *)
|
|
PROG
|
(Haskell)
import Data.Char (digitToInt)
a048377 :: Integer -> Integer
a048377 n =
read $ concat $ zipWith replicate (map ((+ 1) . digitToInt) ns) ns
where ns = show n
|
|
CROSSREFS
|
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|