OFFSET
0,1
COMMENTS
Other methods to describe or summarize n are: A047842 (as here, but ignoring "missing" digits), A244112 (count digits in order of decreasing size, ignoring missing digits). - M. F. Hasler, Feb 25 2018
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..5000
EXAMPLE
131 contains two 1's, zero 2's and one 3, so a(131) = 210213.
MATHEMATICA
a[n_] := Module[{T, f}, T = Tally[IntegerDigits[n]]; f[_] = 0; Do[f[t[[1]]] = t[[2]], {t, T}]; Table[{f[k], k}, {k, Min@T[[All, 1]], Max@T[[All, 1]]} ] // Flatten // FromDigits];
a /@ Range[0, 26] (* Jean-François Alcover, Jan 07 2020 *)
PROG
(PARI) A047843(n, S="")={if(n, for(d=vecmin(n=digits(n)), vecmax(n), S=Str(S, #select(t->t==d, n), d)); eval(S), 10)} \\ M. F. Hasler, Feb 25 2018
CROSSREFS
KEYWORD
nonn,easy,base,nice
AUTHOR
EXTENSIONS
More accurate title from M. F. Hasler, Feb 25 2018
STATUS
approved