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,11

Comments

a(A009994(n) = 0, for n > 9: a(A009995(n) > 0.

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

Cf. A004185, A065641.

Sequence in context: A085276 A226121 A337127 * A270034 A228635 A229660

Adjacent sequences: A193578 A193579 A193580 * A193582 A193583 A193584

Keyword

nonn,base,look

Author

Reinhard Zumkeller, Aug 10 2011

Status

approved