|
|
A071957
|
|
Sum( i=1, n, K(i,n) ) where K(x,y) is the Kronecker symbol (x/y).
|
|
0
|
|
|
1, 1, 0, 2, 0, 2, 0, 0, 6, 2, 0, 0, 0, 4, 0, 8, 0, 0, 0, 0, 0, 2, 0, 0, 20, 6, 0, 0, 0, 4, 0, 0, 0, 4, 0, 12, 0, 6, 0, 0, 0, 4, 0, 0, 0, 4, 0, 0, 42, 2, 0, 0, 0, 2, 0, 0, 0, 2, 0, 0, 0, 8, 0, 32, 0, 8, 0, 0, 0, 4, 0, 0, 0, 10, 0, 0, 0, 4, 0, 0, 54, 4, 0, 0, 0, 10, 0, 0, 0, 4, 0, 0, 0, 8, 0, 0, 0, 2, 0, 40
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,4
|
|
COMMENTS
|
a(n) is always >= 0
|
|
LINKS
|
|
|
MATHEMATICA
|
Table[Sum[KroneckerSymbol[i, n], {i, n}], {n, 100}] (* Alonso del Arte, Dec 26 2012 *)
|
|
PROG
|
(PARI) for(n=1, 100, print1(sum(i=1, n, kronecker(i, n)), ", "))
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|