A028912 - OEIS

%I #7 Mar 31 2018 10:07:58

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

%T 310,311,322,331,332,410,421,431,433,443,511,521,530,532,533,541,610,

%U 631,632,641,643,653,661,710,721,722,730,731,733,743,751,752,754,755

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

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

%K nonn,base,easy

%O 0,1

%A _N. J. A. Sloane_.

%E More terms from _Erich Friedman_.