3 lines
134 B
Text
3 lines
134 B
Text
|
ps=Sort@Select[FromDigits /@ Subsets[Range@9, {1, \[Infinity]}], PrimeQ];
|
||
|
|
Multicolumn[ps, {Automatic, 6}, Appearance -> "Horizontal"]
|