This site is supported by donations to The OEIS Foundation. Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A004186 Arrange digits of n in decreasing order. 29

%I

%S 0,1,2,3,4,5,6,7,8,9,10,11,21,31,41,51,61,71,81,91,20,21,22,32,42,52,

%T 62,72,82,92,30,31,32,33,43,53,63,73,83,93,40,41,42,43,44,54,64,74,84,

%U 94,50,51,52,53,54,55,65,75,85,95,60,61,62,63,64,65,66,76,86,96,70,71,72

%N Arrange digits of n in decreasing order.

%C a(A009996(n)) = A009996(n). - _Reinhard Zumkeller_, Oct 31 2007

%C If we define "sortable primes" as prime numbers that remain prime when their digits are sorted in decreasing order, then all absolute primes (A003459) are sortable primes but not all sortable primes are absolute primes. For example, 113 is both sortable and absolute, and 313 is sortable but not absolute since its digits can be permuted to 133 = 7 * 19. - _Alonso del Arte_, Oct 05 2013

%H R. Zumkeller, <a href="/A004186/b004186.txt">Table of n, a(n) for n = 0..10000</a>

%e a(19) = 91 because the digits of 19 being 1 and 9, arranged in decreasing order they are 9 and 1.

%e a(20) = 20 because the digits are already in decreasing order.

%p A004186 := proc(n)

%p local dgs;

%p convert(n,base,10) ;

%p dgs := sort(%) ;

%p end proc:

%p seq(A004186(n),n=0..20) ; # _R. J. Mathar_, Jul 26 2015

%t sortDigitsDown[n_] := FromDigits@ Reverse@ Sort@ IntegerDigits@ n; Array[sortDigitsDown, 73, 0] (* _Robert G. Wilson v_, Aug 19 2011 *)

%o (PARI)

%o reconstruct(m) = {local(r); r=0; for(i=1,matsize(m),r=r*10+m[i]); r}

%o A004186(n) = reconstruct(vecsort(digits(n),,4))

%o \\ _Michael B. Porter_, Nov 11 2009

%o (PARI) a(n) = fromdigits(vecsort(digits(n), , 4)); \\ _Joerg Arndt_, Feb 24 2019

%o import Data.List (sort)

%o a004186 = read . reverse . sort . show :: Integer -> Integer

%o -- _Reinhard Zumkeller_, Aug 19 2011

%Y Cf. A004185, A004086, A009996, A064222, A194233, A032553, A032554, A028907, A028908.

%K nonn,base,look

%O 0,3

%A _N. J. A. Sloane_.

%E More terms from _Reinhard Zumkeller_, Oct 31 2007

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified November 14 17:24 EST 2019. Contains 329126 sequences. (Running on oeis4.)