login
A035192
Coefficients in expansion of Dirichlet series Product_p (1-(Kronecker(m,p)+1)*p^(-s)+Kronecker(m,p)*p^(-2s))^(-1) for m = 10.
36
1, 1, 2, 1, 1, 2, 0, 1, 3, 1, 0, 2, 2, 0, 2, 1, 0, 3, 0, 1, 0, 0, 0, 2, 1, 2, 4, 0, 0, 2, 2, 1, 0, 0, 0, 3, 2, 0, 4, 1, 2, 0, 2, 0, 3, 0, 0, 2, 1, 1, 0, 2, 2, 4, 0, 0, 0, 0, 0, 2, 0, 2, 0, 1, 2, 0, 2, 0, 0, 0, 2, 3, 0, 2, 2, 0, 0, 4, 2, 1, 5
OFFSET
1,3
COMMENTS
Coefficients of Dedekind zeta function for the quadratic number field of discriminant 40. See A002324 for formula and Maple code. - N. J. A. Sloane, Mar 22 2022
LINKS
FORMULA
From Amiram Eldar, Nov 18 2023: (Start)
a(n) = Sum_{d|n} Kronecker(10, d).
Multiplicative with a(p^e) = 1 if Kronecker(10, p) = 0 (p = 2 or 5), a(p^e) = (1+(-1)^e)/2 if Kronecker(10, p) = -1 (p is in A038880), and a(p^e) = e+1 if Kronecker(10, p) = 1 (p is in A097955).
Asymptotic mean: Limit_{m->oo} (1/m) * Sum_{k=1..m} a(k) = 2*log(sqrt(10)+3)/sqrt(10) = 1.1500865228... . (End)
MATHEMATICA
a[n_] := If[n < 0, 0, DivisorSum[n, KroneckerSymbol[10, #] &]]; Table[ a[n], {n, 1, 100}] (* G. C. Greubel, Apr 27 2018 *)
PROG
(PARI) my(m=10); direuler(p=2, 101, 1/(1-(kronecker(m, p)*(X-X^2))-X))
(PARI) a(n) = sumdiv(n, d, kronecker(10, d)); \\ Amiram Eldar, Nov 18 2023
CROSSREFS
Moebius transform gives A391503.
Cf. A038879 (primes not inert in Q(sqrt(10))), A097955 (primes decomposing), A038880 (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, A035203, A035188, A035210, A035211, A035215, A035219, this sequence, A035223.
Sequence in context: A096496 A382317 A117209 * A229653 A089062 A377930
KEYWORD
nonn,easy,mult
STATUS
approved