A071961 Sum( i=1, n, K(n,i) ) where K(x,y) is the Kronecker symbol (x/y).

1, 1, 0, 2, 0, 2, 4, 0, 6, 2, 2, 0, 0, 4, 6, 8, 0, 0, 2, 0, 0, 2, 6, 0, 20, 6, 0, 0, 0, 4, 12, 0, 0, 4, 4, 12, 0, 6, 12, 0, 0, 4, 0, 0, 0, 4, 10, 0, 42, 2, 4, 0, 0, 2, 18, 0, 0, 2, 6, 0, 0, 8, 2, 32, 0, 8, -2, 0, 0, 4, 14, 0, 0, 10, 4, 0, 0, 4, 22, 0, 54, 4, 4, 0, 0, 10, 14, 0, 0, 4, 2, 0, 0, 8, 14, 0, 0, 2, -2, 40, 0, 4, 22, 0, 0, 6, 4, 0, 0, 12, 22, 0, 0, 8, -2

Offset

1,4

Comments

a(n) = A096396(n) - A096397(n). - Reinhard Zumkeller, Mar 24 2012

a(n) < 0 for n in A071958. - Robert G. Wilson v, Mar 21 2015

Links

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Mathematica

f[n_] := Sum[ KroneckerSymbol[n, k], {k, n}]; Array[f, 114] (* Robert G. Wilson v, Mar 21 2015 *)

Prog

(PARI) for(n=1, 100, print1(sum(i=1, n, kronecker(n, i)), ", "))

Crossrefs

Sequence in context: A137320 A263399 A143507 * A172040 A317327 A120557

Adjacent sequences: A071958 A071959 A071960 * A071962 A071963 A071964

Keyword

easy,sign

Author

Benoit Cloitre, Jun 16 2002

Status

approved