A193581 Sort-and-subtract: a(n) = n - A004185(n).

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

Author

Reinhard Zumkeller, Aug 10 2011

Keywords

• nonn
• base
• look
• easy

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 0..10000

Crossrefs

Cf. A009994, A004185, A065641.

Programs

Haskell

a193581 n = n - a004185 n
a193581_list = map a193581 [0..]

Mathematica

ss[n_]:=n-FromDigits[Sort[Select[IntegerDigits[n],#>0&]]]; Array[ss,80,0] (* Harvey P. Dale, Aug 13 2013 *)

Formula

a(A009994(n)) = 0.

For n > 10, a(A009995(n)) > 0.