11 lines
421 B
Text
11 lines
421 B
Text
ClearAll[PrimesDecade]
|
|
PrimesDecade[n_Integer] := Module[{bounds},
|
|
bounds = {PrimePi[10^n] + 1, PrimePi[10^(n + 1) - 1]};
|
|
Prime[Range @@ bounds]
|
|
]
|
|
ds = Union @@ Table[Union[Times @@@ Tuples[PrimesDecade[d], 2]], {d, 0, 4}];
|
|
|
|
Multicolumn[Take[ds, 100], {Automatic, 8}, Appearance -> "Horizontal"]
|
|
|
|
sel = Min /@ GatherBy[Select[ds, GreaterEqualThan[10]], IntegerLength];
|
|
Grid[{#, FirstPosition[ds, #][[1]]} & /@ sel]
|