|
ClearAll[RepUnitPrimeQ]
|
|
RepUnitPrimeQ[b_][n_] := PrimeQ[FromDigits[ConstantArray[1, n], b]]
|
|
ClearAll[RepUnitPrimeQ]
|
|
RepUnitPrimeQ[b_][n_] := PrimeQ[FromDigits[ConstantArray[1, n], b]]
|
|
Do[
|
|
Print["Base ", b, ": ", Select[Range[2700], RepUnitPrimeQ[b]]]
|
|
,
|
|
{b, 2, 16}
|
|
]
|