login
A193581
Sort-and-subtract: a(n) = n - A004185(n).
6
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 18, 9, 0, 0, 0, 0, 0, 0, 0, 0, 27, 18, 9, 0, 0, 0, 0, 0, 0, 0, 36, 27, 18, 9, 0, 0, 0, 0, 0, 0, 45, 36, 27, 18, 9, 0, 0, 0, 0, 0, 54, 45, 36, 27, 18, 9, 0, 0, 0, 0, 63, 54, 45, 36, 27, 18, 9, 0, 0
OFFSET
0,11
LINKS
FORMULA
a(A009994(n)) = 0.
For n > 10, a(A009995(n)) > 0.
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
nonn,base,look,easy
AUTHOR
Reinhard Zumkeller, Aug 10 2011
STATUS
approved