OFFSET
0,11
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 0..10000
MATHEMATICA
ss[n_]:=n-FromDigits[Sort[Select[IntegerDigits[n], #>0&]]]; Array[ss, 80, 0] (* Harvey P. Dale, Aug 13 2013 *)
PROG
(Haskell)
a193581 n = n - a004185 n
a193581_list = map a193581 [0..]
CROSSREFS
KEYWORD
AUTHOR
Reinhard Zumkeller, Aug 10 2011
STATUS
approved