STATUS
reviewed
approved
reviewed
approved
proposed
reviewed
editing
proposed
sum[p_]:= Total[If[#>p/2 && JacobiSymbol[#, p] != 1, #, 0]& /@ Range[p-1]];
sum /@ Select[Range[3, 1000, 8], PrimeQ] (* Jean-François Alcover, Aug 31 2018 *)
approved
editing
proposed
approved
editing
proposed
Needs a b-file
proposed
editing
editing
proposed
Robert Israel, <a href="/A282725/b282725.txt">Table of n, a(n) for n = 1..1000</a>
approved
editing
editing
approved