OFFSET
0,2
LINKS
Paolo Xausa, Table of n, a(n) for n = 0..10000
MAPLE
L := (n, k) -> NumberTheory:-LegendreSymbol(n, ithprime(k)):
seq(add(L(n, k), k = 2..n + 2), n = 0..67);
MATHEMATICA
A372725[n_] := Sum[JacobiSymbol[n, Prime[k]], {k, 2, n + 2}];
Array[A372725, 100, 0] (* Paolo Xausa, Jul 10 2024 *)
PROG
(PARI) a(n) = sum(k=2, n+2, kronecker(n, prime(k))); \\ Michel Marcus, May 22 2024
CROSSREFS
KEYWORD
sign
AUTHOR
Peter Luschny, May 22 2024
STATUS
approved