A028906 Arrange digits of primes in descending order.

2, 3, 5, 7, 11, 31, 71, 91, 32, 92, 31, 73, 41, 43, 74, 53, 95, 61, 76, 71, 73, 97, 83, 98, 97, 110, 310, 710, 910, 311, 721, 311, 731, 931, 941, 511, 751, 631, 761, 731, 971, 811, 911, 931, 971, 991, 211, 322, 722, 922, 332, 932, 421, 521

Offset: 1

Author

N. J. A. Sloane

Keywords

• nonn
• base

Comments

a(n) = A004186(A000040(n)). - Reinhard Zumkeller, Apr 03 2015

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A028905.

Cf. A004186, A000040.

Programs

Haskell

a028906 = a004186 . a000040  -- Reinhard Zumkeller, Apr 03 2015

Mathematica

Table[FromDigits[Reverse[Sort[IntegerDigits[Prime[n]]]]],{n,60}] (* Harvey P. Dale, Sep 12 2020 *)

Extensions

More terms from Patrick De Geest, Apr 15 1998