|
%I #21 Oct 17 2019 22:32:19
%S 2,3,5,7,31,41,43,53,61,71,73,83,97,421,431,521,541,631,641,643,653,
%T 743,751,761,821,853,863,941,953,971,983,5431,6421,6521,7321,7541,
%U 7621,7643,8431,8521,8543,8641,8731,8741,8753,8761,9421,9431,9521,9631,9643
%N Primes with distinct digits in descending order.
%C Last term is a(87) = 98765431.
%H M. F. Hasler, <a href="/A052014/b052014.txt">Table of n, a(n) for n = 1..87</a>. [The full list of terms.]
%t Select[Prime[Range[1200]], Max[DigitCount[#]] == 1 && And@@Negative[ Differences[IntegerDigits[#]]]&] (* _Harvey P. Dale_, Oct 22 2011 *)
%t t={}; Do[p=Prime[n]; If[Select[Differences[IntegerDigits[p]], # >= 0&] == {}, AppendTo[t,p]], {n,1195}]; t (* _Jayanta Basu_, May 04 2013 *)
%o (PARI) A052014=[]; for( i=1,1023, c=-1; isprime( t=sum( j=0,9, if(bittest(i,j),j*10^c++))) & A052014=concat(A052014,t)); A052014=vecsort(A052014)
%Y Cf. A000040, A028867, A028864, A052015.
%K nonn,base,fini,full
%O 1,1
%A _Patrick De Geest_, Nov 15 1999
|
