OFFSET
1,3
MATHEMATICA
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&]}]
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe, May 21 2010
STATUS
approved