|
%I #15 Aug 14 2020 11:12:46
%S 98765421103,98765410231,98765401321,98765321401,98765320411,
%T 98765301241,98765241103,98765240131,98765240113,98765234011,
%U 98765204311,98765201341,98765140231,98765134021,98765124103,98765124013,98765121043,98765120431,98765120413,98765120143
%N Pandigital primes with least digit sum (46) starting with the largest and listed in descending order.
%C The last term is a(1251724) = 10123457689. - _Jinyuan Wang_, Aug 14 2020
%H Harvey P. Dale, <a href="/A159474/b159474.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Reverse[Sort[FromDigits[Join[{9,8,7,6},#]]&/@Permutations[{5,4,3,2,1,0,1}]]], PrimeQ] (* The program generates the first 150 terms of the sequence *) (* _Harvey P. Dale_, May 05 2016 *)
%Y Cf. A050288, A159473.
%K nonn,base,fini
%O 1,1
%A _Lekraj Beedassy_, Apr 13 2009
%E Corrected and extended by _Ray Chandler_, Apr 16 2009
|
