2 lines
72 B
Text
2 lines
72 B
Text
|
Sort[Select[FromDigits/@Subsets[Range[9,1,-1],{1,\[Infinity]}],PrimeQ]]
|