This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A193581 #18 Oct 22 2024 03:27:42 %S A193581 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, %T A193581 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, %U A193581 36,27,18,9,0,0,0,0,63,54,45,36,27,18,9,0,0 %N A193581 Sort-and-subtract: a(n) = n - A004185(n). %H A193581 Reinhard Zumkeller, <a href="/A193581/b193581.txt">Table of n, a(n) for n = 0..10000</a> %F A193581 a(A009994(n)) = 0. %F A193581 For n > 10, a(A009995(n)) > 0. %t A193581 ss[n_]:=n-FromDigits[Sort[Select[IntegerDigits[n],#>0&]]]; Array[ss,80,0] (* _Harvey P. Dale_, Aug 13 2013 *) %o A193581 (Haskell) %o A193581 a193581 n = n - a004185 n %o A193581 a193581_list = map a193581 [0..] %Y A193581 Cf. A009994, A004185, A065641. %K A193581 nonn,base,look,easy %O A193581 0,11 %A A193581 _Reinhard Zumkeller_, Aug 10 2011