4 lines
135 B
Text
4 lines
135 B
Text
ClearAll[WilsonPrimeQ]
|
|
WilsonPrimeQ[1] = False;
|
|
WilsonPrimeQ[p_Integer] := Divisible[(p - 1)! + 1, p]
|
|
Select[Range[100], WilsonPrimeQ]
|