Table[gcd((p+1)/2, p-1), {p,3,13}]