login
A178153 for primes p=3 (mod 4).
5

%I #2 Mar 30 2012 17:22:56

%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[(p-1)/2], JacobiSymbol[ #,p]==1&]] - Length[Select[Range[(p+1)/2,p-1], JacobiSymbol[ #,p]==1&]], {p, Select[Prime[Range[200]], Mod[ #,4]==3&]}]

%K nonn

%O 1,3

%A _T. D. Noe_, May 21 2010