[go: up one dir, main page]

login
Revision History for A282725 (Bold, blue-underlined text is an addition; faded, red-underlined text is a deletion.)

Showing entries 1-10 | older changes
Let p = n-th prime == 3 mod 8; a(n) = sum of quadratic nonresidues mod p that are > p/2.
(history; published version)
#17 by Susanna Cuyler at Fri Aug 31 15:58:36 EDT 2018
STATUS

reviewed

approved

#16 by Joerg Arndt at Fri Aug 31 13:00:48 EDT 2018
STATUS

proposed

reviewed

#15 by Jean-François Alcover at Fri Aug 31 12:07:04 EDT 2018
STATUS

editing

proposed

#14 by Jean-François Alcover at Fri Aug 31 12:07:00 EDT 2018
MATHEMATICA

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 *)

STATUS

approved

editing

#13 by N. J. A. Sloane at Tue Jun 20 23:05:24 EDT 2017
STATUS

proposed

approved

#12 by Jon E. Schoenfield at Tue Jun 20 21:17:36 EDT 2017
STATUS

editing

proposed

#11 by Jon E. Schoenfield at Tue Jun 20 21:17:27 EDT 2017
COMMENTS

Needs a b-file

STATUS

proposed

editing

#10 by Robert Israel at Tue Jun 20 19:32:20 EDT 2017
STATUS

editing

proposed

#9 by Robert Israel at Tue Jun 20 19:32:14 EDT 2017
LINKS

Robert Israel, <a href="/A282725/b282725.txt">Table of n, a(n) for n = 1..1000</a>

STATUS

approved

editing

#8 by R. J. Mathar at Fri Apr 07 11:19:20 EDT 2017
STATUS

editing

approved