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

Comments

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

Links

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

Mathematica

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

Prog

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

Crossrefs

Cf. A028905.

Cf. A004186, A000040.

Sequence in context: A265324 A004087 A118495 * A118496 A085300 A119388

Adjacent sequences: A028903 A028904 A028905 * A028907 A028908 A028909

Keyword

nonn,base

Author

N. J. A. Sloane

Extensions

More terms from Patrick De Geest, Apr 15 1998

Status

approved