A372725 - OEIS

A372725

a(n) = Sum_{k=2..n+2} L(n/prime(k)) where L(n/p) is the Legendre symbol. Row sums of A372726.

0, 2, -1, -1, 5, -3, -2, -3, -3, 9, -2, -3, -4, -3, -2, -2, 17, -3, -4, -1, -2, 0, -4, -1, 0, 25, -4, -1, -4, -5, -3, -5, -3, -6, -2, 2, 36, -1, 6, -4, -6, -7, 1, -3, -4, -2, 0, 9, -4, 49, -4, -4, -4, -7, -6, -4, -2, -6, -4, -3, 1, 1, 12, -4, 65, -2, -5, -5

(list; graph; refs; listen; history; text; internal format)

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