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,1

Links

Table of n, a(n) for n=0..56.

Mathematica

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

Crossrefs

Sequence in context: A099160 A181503 A028911 * A075236 A155081 A157158

Adjacent sequences: A028909 A028910 A028911 * A028913 A028914 A028915

Keyword

nonn,base,easy

Author

N. J. A. Sloane.

Extensions

More terms from Erich Friedman.

Status

approved