|
%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_.
|
