OFFSET
1,1
COMMENTS
p | (p-1)! +1 iff p is a prime (Wilson's theorem). Note: all of the above primes are congruent to 3 (mod 4).
REFERENCES
J. B. Cosgrave, A Mersenne-Wieferich Odyssey, Manuscript, May 2022. See Section 18.5.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[ Range[ 1225 ], PrimeQ[ # ] && Mod[ ((# - 1)/2)! + 1, # ] == 0 & ]
Select[Prime[Range[200]], Divisible[((#-1)/2)!+1, #]&] (* Harvey P. Dale, Dec 17 2014 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jul 22 2000
STATUS
approved