login
Sort digits of primes into descending order (A028906) then sort this sequence into ascending order.
1

%I #7 Mar 26 2013 16:34:06

%S 2,3,5,7,11,31,31,32,41,43,53,61,71,71,73,73,74,76,83,91,92,95,97,97,

%T 98,110,211,310,311,311,311,322,331,331,332,410,421,421,431,433,443,

%U 511,521,521,530,532,533,541,610,631,631,631,632,641,641,643,643,653

%N Sort digits of primes into descending order (A028906) then sort this sequence into ascending order.

%t Take[Sort[FromDigits[Reverse[Sort[IntegerDigits[#]]]]&/@Prime[Range[200]]],60] (* _Harvey P. Dale_, Mar 26 2013 *)

%K nonn,base,easy

%O 0,1

%A _N. J. A. Sloane_.

%E More terms from _Erich Friedman_.