|
|
A058302
|
|
Primes p such that p | ((p-1)/2)! -1.
|
|
5
|
|
|
3, 23, 31, 59, 71, 83, 107, 139, 151, 167, 211, 223, 239, 251, 271, 283, 307, 311, 331, 359, 379, 439, 463, 467, 487, 499, 547, 587, 643, 647, 659, 719, 751, 811, 827, 859, 883, 907, 911, 919, 967, 971, 983, 1031, 1039, 1063, 1103, 1163, 1171, 1223
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
p | (p-1)! +1 iff p is a prime (Wilson's theorem). 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
|
|
|
MATHEMATICA
|
Select[ Range[ 1225 ], PrimeQ[ # ] && Mod[ ((# - 1)/2)! - 1, # ] == 0 & ]
Select[Prime[Range[200]], Divisible[((#-1)/2)!-1, #]&] (* Harvey P. Dale, Aug 29 2022 *)
|
|
PROG
|
(PARI) forprime(p=3, 10^4, if( Mod(((p-1)/2)!, p)==1, print1(p, ", "))); /* Joerg Arndt, Apr 12 2011 */
(Magma) [p: p in PrimesInInterval(3, 1230) | IsDivisibleBy(Factorial((p-1) div 2)-1, p)]; // Bruno Berselli, Apr 13 2011
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|