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