login
A035203
Coefficients in expansion of Dirichlet series Product_p (1-(Kronecker(m,p)+1)*p^(-s)+Kronecker(m,p)*p^(-2s))^(-1) for m = 21.
37
1, 0, 1, 1, 2, 0, 1, 0, 1, 0, 0, 1, 0, 0, 2, 1, 2, 0, 0, 2, 1, 0, 0, 0, 3, 0, 1, 1, 0, 0, 0, 0, 0, 0, 2, 1, 2, 0, 0, 0, 2, 0, 2, 0, 2, 0, 2, 1, 1, 0, 2, 0, 0, 0, 0, 0, 0, 0, 2, 2, 0, 0, 1, 1, 0, 0, 2, 2, 0, 0, 0, 0, 0, 0, 3, 0, 0, 0, 2, 2, 1
OFFSET
1,5
COMMENTS
Coefficients of Dedekind zeta function for the quadratic number field of discriminant 21. See A002324 for formula and Maple code. - N. J. A. Sloane, Mar 22 2022
LINKS
FORMULA
Asymptotic mean: Limit_{m->oo} (1/m) * Sum_{k=1..m} a(k) = 2*log((5+sqrt(21))/2)/sqrt(21) = 0.683807... . - Amiram Eldar, Oct 11 2022
From Amiram Eldar, Nov 19 2023: (Start)
a(n) = Sum_{d|n} Kronecker(21, d).
Multiplicative with a(p^e) = 1 if Kronecker(21, p) = 0 (p = 3 or 7), a(p^e) = (1+(-1)^e)/2 if Kronecker(21, p) = -1 (p is in A038894), and a(p^e) = e+1 if Kronecker(21, p) = 1 (p is in A038893 \ {3, 7}). (End)
MATHEMATICA
a[n_] := DivisorSum[n, KroneckerSymbol[21, #] &]; Array[a, 100] (* Amiram Eldar, Oct 11 2022 *)
PROG
(PARI) my(m = 21); direuler(p=2, 101, 1/(1-(kronecker(m, p)*(X-X^2))-X))
(PARI) a(n) = sumdiv(n, d, kronecker(21, d)); \\ Amiram Eldar, Nov 19 2023
CROSSREFS
Moebius transform gives A322829.
Cf. A038893 (primes not inert in Q(sqrt(21))), A038894 (primes remaining inert).
Dedekind zeta functions for imaginary quadratic number fields of discriminants D = -3..-47, -67, -163: A002324, A002654, A035182, A002325, A035179, A035175, A035171, A035170, A035167, A192013, A035159, A035155, A035151, A035180, A035147, A035143, A318982, A318983.
Dedekind zeta functions for real quadratic number fields of discriminants D = 5..41: A035187, A035185, A035194, A035195, A035199, this sequence, A035188, A035210, A035211, A035215, A035219, A035192, A035223.
Sequence in context: A343222 A112378 A324832 * A357905 A173920 A230001
KEYWORD
nonn,easy,mult
STATUS
approved