RosettaCodeData/Task/Descending-primes/Mathematica/descending-primes.math

2 lines
72 B
Plaintext

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