|
| |
|
|
A071961
|
|
a(n) = Sum_{i=0..n} K(n, i) where K(x, y) is the Kronecker symbol (x / y).
|
|
10
|
|
|
|
0, 2, 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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
0,2
|
|
|
COMMENTS
|
|
|
|
LINKS
|
|
|
|
MATHEMATICA
|
f[n_] := Sum[KroneckerSymbol[n, k], {k, 0, n}];
|
|
|
PROG
|
(PARI) for(n=0, 100, print1(sum(i=1, n, kronecker(n, i)), ", "))
(SageMath)
print([sum(kronecker(n, k) for k in range(n + 1)) for n in range(82)])
|
|
|
CROSSREFS
|
|
|
|
KEYWORD
|
|
|
|
AUTHOR
|
|
|
|
EXTENSIONS
|
Offset set to 0, a(0) = 0 added, a(1) and name adapted by Peter Luschny, May 16 2024
|
|
|
STATUS
|
approved
|
| |
|
|
