# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/
Search: id:a165032
Showing 1-1 of 1
%I A165032 #11 Jan 08 2020 09:43:03
%S A165032 0,0,0,0,0,4,0,4,8,12,8,4,0,4,8,12,8,4,0,4,16,12,8,4,0,24,24,48,72,96,
%T A165032 24,0,24,48,72,48,24,24,48,72,72,48,48,48,72,96,72,72,72,72,48,48,48,
%U A165032 72,96,48,24,24,48,72,48,24,0,24,48,72,48,24,24,48,96,72,48,48,48,72,72,72
%N A165032 a(n) = image of n under the base-5 Kaprekar map n -> (n with digits sorted into descending order) - (n with digits sorted into ascending order)
%H A165032 Indranil Ghosh, Table of n, a(n) for n = 0..15625 (terms 0..3125 from Joseph Myers)
%H A165032 Index entries for the Kaprekar map
%e A165032 For n = 10, 10_10 = 20_5. So, a(10) = 20_5 - 2_5 = 10 - 2 = 8. - _Indranil Ghosh_, Feb 02 2017
%t A165032 a[n_] := With[{dd = IntegerDigits[n, 5]}, FromDigits[ReverseSort[dd], 5] - FromDigits[Sort[dd], 5]];
%t A165032 a /@ Range[0, 100] (* _Jean-François Alcover_, Jan 08 2020 *)
%Y A165032 Cf. A165033.
%Y A165032 In other bases: A164884 (base 2), A164993 (base 3), A165012 (base 4), A165051 (base 6), A165071 (base 7), A165090 (base 8), A165110 (base 9), A151949 (base 10).
%K A165032 base,nonn
%O A165032 0,6
%A A165032 _Joseph Myers_, Sep 04 2009
# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE