Primes p for which sum_{1..(p-1)/2} Legendre(i/p) reaches a new maximum.
3, 11, 47, 59, 131, 251, 419, 659, 971, 1091, 1811, 2939, 3251, 4091, 4259, 5099, 6299, 6971, 8291, 8819, 9539, 11171, 12011, 13859, 16931, 17939, 19211, 19379, 22571, 26171, 27011, 28019, 31379, 37691, 38639, 39779, 41051, 44651, 48179, 49139, 53819, 58211
1
Here Legendre(i/p) is the Legendre symbol.
T. D. Noe, Plot of 100 terms
T. D. Noe, Table of 100 terms
Eric W. Weisstein, MathWorld: Legendre Symbol
(Mma) t = {}; mx = 0; n = 0; While[Length[t] < 50, n++; p = Prime[n]; If[! MemberQ[{1, 5}, Mod[p, 8]], s = Plus @@ JacobiSymbol[Range[(p - 1)/2], p]; If[s > mx, mx = s; AppendTo[t, {p, s}]]]]; Transpose[t][[1]]
nonn,hard
T. D. Noe, Nov 20 2015