A109178 Largest eight-digit primes (in decreasing order) which use each of 0-to-7 decimal digits exactly once.
76540231, 76532041, 76524031, 76523401, 76520341, 76514203, 76512043, 76504321, 76504231, 76503241, 76502143, 76501423, 76453021, 76451203, 76435201, 76425103, 76421053, 76401253, 76345201, 76340521, 76325401
Offset: 1
Crossrefs
Cf. A109177.
Programs
-
Mathematica
Sort[Take[FromDigits/@Select[Permutations[Range[0,7]],First[#]!=0 && PrimeQ[ FromDigits[#]]&],-50],#1>#2&] (* Harvey P. Dale, Aug 16 2011 *)
Comments