3 lines
136 B
Text
3 lines
136 B
Text
ClearAll[WieferichPrimeQ]
|
|
WieferichPrimeQ[n_Integer] := PrimeQ[n] && Divisible[2^(n - 1) - 1, n^2]
|
|
Select[Range[5000], WieferichPrimeQ]
|