A159474 Pandigital primes with least digit sum (46) starting with the largest and listed in descending order.
98765421103, 98765410231, 98765401321, 98765321401, 98765320411, 98765301241, 98765241103, 98765240131, 98765240113, 98765234011, 98765204311, 98765201341, 98765140231, 98765134021, 98765124103, 98765124013, 98765121043, 98765120431, 98765120413, 98765120143
Offset: 1
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
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 *)
Extensions
Corrected and extended by Ray Chandler, Apr 16 2009
Comments