OFFSET
1,2
COMMENTS
FORMULA
a(n) = max_{0<k<p} |sum_{i=1..k} L(i/p)|, where p is the n-th prime == 1 (mod 4) and L(i/p) is the Legendre symbol.
EXAMPLE
MATHEMATICA
T = Table[Max[Table[Abs[Sum[JacobiSymbol[i, Prime[n]], {i, 1, k}]], {k, 1, Prime[n] - 1}]], {n, 2, 200}]; P = Table[Mod[Prime[n], 4], {n, 2, 200}]; Pick[T, P, 1]
CROSSREFS
KEYWORD
nonn
AUTHOR
Jonathan Sondow, Feb 16 2012
STATUS
approved