%I
%S 7,11,19,43,47,67,79,103,127,131,163,179,191,199,227,263,347,367,383,
%T 419,431,443,479,491,503,523,563,571,599,607,619,631,683,691,727,739,
%U 743,787,823,839,863,887,947,991,1019,1051,1087,1091,1123,1151,1187
%N Primes p such that p  ((p1)/2)! + 1.
%C p  (p1)! +1 iff p is a prime (Wilson's theorem). Note: all of the above primes are congruent to 3 (mod 4).
%C All primes == 3 mod 4 are members of either A055939 or A058302.  Zak Seidov, Jan 16 2007
%t Select[ Range[ 1225 ], PrimeQ[ # ] && Mod[ ((#  1)/2)! + 1, # ] == 0 & ]
%t Select[Prime[Range[200]],Divisible[((#1)/2)!+1,#]&] (* _Harvey P. Dale_, Dec 17 2014 *)
%Y Cf. A058302.
%K nonn
%O 1,1
%A _Robert G. Wilson v_, Jul 22 2000
