A035195 Coefficients in expansion of Dirichlet series Product_p (1-(Kronecker(m,p)+1)*p^(-s)+Kronecker(m,p)*p^(-2s))^(-1) for m = 13.

1, 0, 2, 1, 0, 0, 0, 0, 3, 0, 0, 2, 1, 0, 0, 1, 2, 0, 0, 0, 0, 0, 2, 0, 1, 0, 4, 0, 2, 0, 0, 0, 0, 0, 0, 3, 0, 0, 2, 0, 0, 0, 2, 0, 0, 0, 0, 2, 1, 0, 4, 1, 2, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 1, 0, 0, 0, 2, 4, 0, 0, 0, 0, 0, 2, 0, 0, 0, 2, 0, 5

Offset

1,3

Comments

Coefficients of Dedekind zeta function for the quadratic number field of discriminant 13. See A002324 for formula and Maple code. - N. J. A. Sloane, Mar 22 2022

Links

G. C. Greubel, Table of n, a(n) for n = 1..10000

Formula

Asymptotic mean: Limit_{m->oo} (1/m) * Sum_{k=1..m} a(k) = 2*log((3+sqrt(13))/2)/sqrt(13) = 0.662735... . - Amiram Eldar, Oct 11 2022

From Amiram Eldar, Nov 18 2023: (Start)

a(n) = Sum_{d|n} Kronecker(13, d).

Multiplicative with a(13^e) = 1, a(p^e) = (1+(-1)^e)/2 if Kronecker(13, p) = -1 (p is in A038884), and a(p^e) = e+1 if Kronecker(13, p) = 1 (p is in A038883 \ {13}). (End)

Mathematica

a[n_] := If[n < 0, 0, DivisorSum[n, KroneckerSymbol[13, #] &]]; Table[ a[n], {n, 1, 100}] (* G. C. Greubel, Apr 27 2018 *)

Prog

(PARI) my(m=13); direuler(p=2, 101, 1/(1-(kronecker(m, p)*(X-X^2))-X))
(PARI) a(n) = sumdiv(n, d, kronecker(13, d)); \\ Amiram Eldar, Nov 18 2023

Crossrefs

Dedekind zeta functions for imaginary quadratic number fields of discriminants -3, -4, -7, -8, -11, -15, -19, -20 are A002324, A002654, A035182, A002325, A035179, A035175, A035171, A035170, respectively.

Dedekind zeta functions for real quadratic number fields of discriminants 5, 8, 12, 13, 17, 21, 24, 28, 29, 33, 37, 40 are A035187, A035185, A035194, A035195, A035199, A035203, A035188, A035210, A035211, A035215, A035219, A035192, respectively.

Cf. A038883, A038884.

Sequence in context: A331812 A368821 A250002 * A073797 A037856 A037874

Adjacent sequences: A035192 A035193 A035194 * A035196 A035197 A035198

Keyword

nonn,easy,mult

Author

N. J. A. Sloane

Status

approved