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

Author

N. J. A. Sloane

Keywords

• nonn
• base
• easy

Programs

Mathematica

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

Extensions

More terms from Erich Friedman.