RosettaCodeData/Task/Descending-primes/Mathematica/descending-primes.math
2023-07-01 13:44:08 -04:00

1 line
72 B
Text

Sort[Select[FromDigits/@Subsets[Range[9,1,-1],{1,\[Infinity]}],PrimeQ]]