login
Arrange digits of primes in descending order.
6

%I #17 Sep 12 2020 18:01:34

%S 2,3,5,7,11,31,71,91,32,92,31,73,41,43,74,53,95,61,76,71,73,97,83,98,

%T 97,110,310,710,910,311,721,311,731,931,941,511,751,631,761,731,971,

%U 811,911,931,971,991,211,322,722,922,332,932,421,521

%N Arrange digits of primes in descending order.

%C a(n) = A004186(A000040(n)). - _Reinhard Zumkeller_, Apr 03 2015

%H Reinhard Zumkeller, <a href="/A028906/b028906.txt">Table of n, a(n) for n = 1..10000</a>

%t Table[FromDigits[Reverse[Sort[IntegerDigits[Prime[n]]]]],{n,60}] (* _Harvey P. Dale_, Sep 12 2020 *)

%o (Haskell)

%o a028906 = a004186 . a000040 -- _Reinhard Zumkeller_, Apr 03 2015

%Y Cf. A028905.

%Y Cf. A004186, A000040.

%K nonn,base

%O 1,1

%A _N. J. A. Sloane_

%E More terms from _Patrick De Geest_, Apr 15 1998