A028912 Sort digits of primes into descending order (A028906), sort this sequence into ascending order (A028911), then remove duplicates.
2, 3, 5, 7, 11, 31, 32, 41, 43, 53, 61, 71, 73, 74, 76, 83, 91, 92, 95, 97, 98, 110, 211, 310, 311, 322, 331, 332, 410, 421, 431, 433, 443, 511, 521, 530, 532, 533, 541, 610, 631, 632, 641, 643, 653, 661, 710, 721, 722, 730, 731, 733, 743, 751, 752, 754, 755
Offset: 0
Programs
-
Mathematica
Take[FromDigits[Reverse[Sort[IntegerDigits[#]]]]&/@Prime[Range[200]]//Union,60] (* Harvey P. Dale, Mar 31 2018 *)
Extensions
More terms from Erich Friedman.