login
A035199
Coefficients in expansion of Dirichlet series Product_p (1-(Kronecker(m,p)+1)*p^(-s)+Kronecker(m,p)*p^(-2s))^(-1) for m = 17.
36
1, 2, 0, 3, 0, 0, 0, 4, 1, 0, 0, 0, 2, 0, 0, 5, 1, 2, 2, 0, 0, 0, 0, 0, 1, 4, 0, 0, 0, 0, 0, 6, 0, 2, 0, 3, 0, 4, 0, 0, 0, 0, 2, 0, 0, 0, 2, 0, 1, 2, 0, 6, 2, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 7, 0, 0, 2, 3, 0, 0, 0, 4, 0, 0, 0, 6, 0, 0, 0, 0, 1
OFFSET
1,2
COMMENTS
Coefficients of Dedekind zeta function for the quadratic number field of discriminant 17. 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(4+sqrt(17))/sqrt(17) = 1.016084... . - Amiram Eldar, Oct 11 2022
From Amiram Eldar, Nov 18 2023: (Start)
a(n) = Sum_{d|n} Kronecker(17, d).
Multiplicative with a(17^e) = 1, a(p^e) = (1+(-1)^e)/2 if Kronecker(17, p) = -1 (p is in A038890), and a(p^e) = e+1 if Kronecker(17, p) = 1 (p is in A038889 \ {17}). (End)
MATHEMATICA
a[n_] := If[n < 0, 0, DivisorSum[n, KroneckerSymbol[17, #] &]]; Table[ a[n], {n, 1, 100}] (* G. C. Greubel, Apr 27 2018 *)
PROG
(PARI) my(m=17); direuler(p=2, 101, 1/(1-(kronecker(m, p)*(X-X^2))-X))
(PARI) a(n) = sumdiv(n, d, kronecker(17, d)); \\ Amiram Eldar, Nov 18 2023
CROSSREFS
Moebius transform gives A011584.
Cf. A038889 (primes not inert in Q(sqrt(17))), A296938 (primes decomposing), A038890 (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, this sequence, A035203, A035188, A035210, A035211, A035215, A035219, A035192, A035223.
Sequence in context: A080024 A378998 A348223 * A035229 A348019 A285982
KEYWORD
nonn,easy,mult
STATUS
approved