%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