login
A178154
A178153 for primes p=3 (mod 4).
5
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, 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, 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
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
Sequence in context: A113215 A105591 A130497 * A270774 A263144 A126715
KEYWORD
nonn
AUTHOR
T. D. Noe, May 21 2010
STATUS
approved