%I
%S 1,1,3,3,3,3,3,5,9,3,7,5,9,5,9,5,15,9,7,3,11,15,13,9,9,7,15,15,21,13,
%T 11,9,9,19,9,15,19,9,9,17,27,21,15,15,7,21,25,7,27,9,21,15,9,27,15,21,
%U 25,13,15,13,9,23,33,15,15,31,13,15,21,15,15,21,9,21,33,21,21,9,29,9,31,19
%N A178153 for primes p=3 (mod 4).
%t Table[Length[Select[Range[(p1)/2], JacobiSymbol[ #,p]==1&]]  Length[Select[Range[(p+1)/2,p1], JacobiSymbol[ #,p]==1&]], {p, Select[Prime[Range[200]], Mod[ #,4]==3&]}]
%K nonn
%O 1,3
%A _T. D. Noe_, May 21 2010
