A178154 - OEIS

The OEIS is supported by the many generous donors to the OEIS Foundation.

A178154

A178153 for primes p=3 (mod 4).

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,3

LINKS

Table of n, a(n) for n=1..82.

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

Adjacent sequences: A178151 A178152 A178153 * A178155 A178156 A178157

KEYWORD

nonn

AUTHOR

T. D. Noe, May 21 2010

STATUS

approved