A326919 -id:A326919 - cp's OEIS frontend

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

1, 2, 0, 3, 0, 0, 1, 4, 1, 0, 2, 0, 0, 2, 0, 5, 0, 2, 0, 0, 0, 4, 2, 0, 1, 0, 0, 3, 2, 0, 0, 6, 0, 0, 0, 3, 2, 0, 0, 0, 0, 0, 2, 6, 0, 4, 0, 0, 1, 2, 0, 0, 2, 0, 0, 4, 0, 4, 0, 0, 0, 0, 1, 7, 0, 0, 2, 0, 0, 0, 2, 4, 0, 4, 0, 0, 2, 0, 2, 0, 1, 0, 0, 0, 0, 4, 0, 8, 0, 0, 0, 6, 0, 0, 0, 0, 0, 2, 2, 3, 0, 0, 0, 0, 0

Offset: 1

N. J. A. Sloane

G.f. A(x) satisfies 0 = f(A(x), A(x^2), A(x^4)) where f(u, v, w) = u^2 + 5*v^2 + 4*w^2 - 8*v*w - 4*u*v + 2*u*w + v - w. - Michael Somos, Jul 21 2004
Half of the number of integer solutions to x^2 + x*y + 2*y^2 = n. - Michael Somos, Jun 05 2005
Inverse Moebius transform of A175629. - Jianing Song, Sep 07 2018
Coefficients of Dedekind zeta function for the quadratic number field of discriminant -7. See A002324 for formula and Maple code. - N. J. A. Sloane, Mar 22 2022

			G.f. = x + 2*x^2 + 3*x^4 + x^7 + 4*x^8 + x^9 + 2*x^11 + 2*x^14 + 5*x^16 + ...

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

Cf. A002652, A326919.
Moebius transform gives A175629.
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.

A := Basis( ModularForms( Gamma1(14), 1), 106); B := (-1 + A[1] + 2*A[2] + 4*A[3] + 6*A[5]) / 2; B; // Michael Somos, Jun 10 2015

a[ n_] := If[ n < 1, 0, Sum[ KroneckerSymbol[ -7, d], { d, Divisors[ n]}]]; (* Michael Somos, Jan 23 2014 *)
a[ n_] := If[ n < 1, 0, Length @ FindInstance[ n == x^2 + x y + 2 y^2, {x, y}, Integers, 10^9] / 2]; (* Michael Somos, Jan 23 2014 *)
a[ n_] := If[ n < 1, 0, DivisorSum[ n, KroneckerSymbol[ -7, #] &]]; (* Michael Somos, Jun 10 2015 *)

{a(n) = my(A, p, e); if( n<0, 0, A = factor(n); prod(k=1, matsize(A)[1], [p, e] = A[k,]; [ !(e%2), 1, e+1] [kronecker( -7, p) + 2]))}; \\ Michael Somos, May 28 2005

{a(n) = if( n<1, 0, qfrep([ 2, 1; 1, 4], n, 1)[n])}; \\ Michael Somos, Jun 05 2005

{a(n) = if( n<1, 0, direuler( p=2, n, 1 / ((1 - X) * (1 - kronecker( -7, p)*X)))[n])}; \\ Michael Somos, Jun 05 2005

a(n) is multiplicative with a(7^e) = 1, a(p^e) = e + 1 if p == 1, 2, 4 (mod 7), a(p^e) = (1 + (-1)^e) / 2 if p == 3, 5, 6 (mod 7). - Michael Somos, May 28 2005
2 * a(n) = A002652(n) unless n = 0.
Asymptotic mean: Limit_{m->oo} (1/m) * Sum_{k=1..m} a(k) = Pi/sqrt(7) =  1.187410... (A326919). - Amiram Eldar, Oct 11 2022

A327135 Decimal expansion of Sum_{k>=1} Kronecker(-7,k)/k^3.

Original entry on oeis.org

1, 0, 9, 3, 3, 4, 3, 0, 6, 9, 4, 2, 9, 5, 3, 3, 5, 7, 1, 9, 7, 6, 5, 7, 9, 8, 1, 5, 0, 0, 7, 7, 0, 0, 2, 3, 4, 7, 8, 0, 1, 9, 2, 5, 8, 4, 8, 3, 2, 3, 8, 3, 6, 4, 6, 3, 5, 0, 2, 3, 0, 9, 4, 3, 2, 4, 3, 2, 8, 1, 0, 6, 9, 0, 3, 2, 3, 6, 2, 1, 7, 4, 3, 4, 0, 4, 6, 2, 2, 9, 2

Offset: 1

Jianing Song, Nov 19 2019

Let Chi() be a primitive character modulo d, the so-called Dirichlet L-series L(s,Chi) is the analytic continuation (see the functional equations involving L(s,Chi) in the MathWorld link entitled Dirichlet L-Series) of the sum Sum_{k>=1} Chi(k)/k^s, Re(s)>0 (if d = 1, the sum converges requires Re(s)>1).
If s != 1, we can represent L(s,Chi) in terms of the Hurwitz zeta function by L(s,Chi) = (Sum_{k=1..d} Chi(k)*zeta(s,k/d))/d^s.
L(s,Chi) can also be represented in terms of the polylog function by L(s,Chi) = (Sum_{k=1..d} Chi'(k)*polylog(s,u^k))/(Sum_{k=1..d} Chi'(k)*u^k), where Chi' is the complex conjugate of Chi, u is any primitive d-th root of unity.
If m is a positive integer, we have L(m,Chi) = (Sum_{k=1..d} Chi(k)*polygamma(m-1,k/d))/((-d)^m*(m-1)!).
In this sequence we have Chi = A175629 and s = 3.

			1 + 1/2^3 - 1/3^3 + 1/4^3 - 1/5^3 - 1/6^3 + 1/8^3 + 1/9^3 - 1/10^3 + 1/11^3 - 1/12^3 - 1/13^3 + ... = 32*Pi^3/(343*sqrt(7)) = 1.0933430694...

R. J. Mathar, Table of Dirichlet L-series and prime zeta modulo functions for small moduli, arXiv:1008.2547 [math.NT], 2010-2015, L(m=7,r=4,s=3).
Eric Weisstein's World of Mathematics, Dirichlet L-Series.
Eric Weisstein's World of Mathematics, Polygamma Function.

Cf. A175629.
Decimal expansion of Sum_{k>=1} Kronecker(d,k)/k^3, where d is a fundamental discriminant: A251809 (d=-8), this sequence (d=-7), A153071 (d=-4), A129404 (d=-3), A002117 (d=1), A328723 (d=5), A329715 (d=8), A329716 (d=12).
Decimal expansion of Sum_{k>=1} Kronecker(-7,k)/k^s: A326919 (s=1), A103133 (s=2), this sequence (s=3).

RealDigits[32*Pi^3/(343*Sqrt[7]), 10, 102] // First

default(realprecision, 100); 32*Pi^3/(343*sqrt(7))

Equals 32*Pi^3/(343*sqrt(7)).
Equals (zeta(3,1/7) + zeta(3,2/7) - zeta(3,3/7) + zeta(3,4/7) - zeta(3,5/7) - zeta(3,6/7))/343.
Equals (polylog(3,u) + polylog(3,u^2) - polylog(3,u^3) + polylog(3,u^4) - polylog(3,u^5) - polylog(3,u^6))/sqrt(-7), where u = exp(2*Pi*i/7) is a 7th primitive root of unity, i = sqrt(-1).
Equals (polygamma(2,1/7) + polygamma(2,2/7) - polygamma(2,3/7) + polygamma(2,4/7) - polygamma(2,5/7) - polygamma(2,6/7))/(-686).
Equals 1/(Product_{p prime == 1, 2 or 4 (mod 7)} (1 - 1/p^3) * Product_{p prime == 3, 5 or 6 (mod 7)} (1 + 1/p^3)). - Amiram Eldar, Dec 17 2023

A103133 Decimal expansion of Dirichlet series L_{-7}(2).

Original entry on oeis.org

1, 1, 5, 1, 9, 2, 5, 4, 7, 0, 5, 4, 4, 4, 9, 1, 0, 4, 7, 1, 0, 1, 6, 9, 2, 3, 9, 7, 3, 2, 0, 5, 4, 9, 9, 6, 4, 7, 9, 7, 8, 2, 1, 4, 0, 4, 6, 8, 6, 5, 6, 6, 9, 1, 4, 0, 8, 3, 9, 6, 8, 6, 3, 6, 1, 6, 6, 1, 2, 4, 1, 6, 3, 4, 5, 4, 5, 9, 1, 5, 4, 7, 5, 5, 6, 6, 7, 7, 5, 1, 9, 0, 6, 2, 9, 7, 2, 1, 2, 5, 3, 4

Offset: 1

Eric W. Weisstein, Jan 23 2005

			1.151925470544491047...

D. Cvijovic, Proof of the Borwein-Broadhurst conjecture for a dilogarithmic integral arising in quantum field theory, arXiv:1011.0195 [math-ph], 2010.
Steven R. Finch, Mathematical Constants II, Encyclopedia of Mathematics and Its Applications, Cambridge University Press, Cambridge, 2018, p. 98-99.
R. J. Mathar, Table of Dirichlet L-series and prime zeta modulo functions for small moduli, arXiv:1008.2547 [math.NT], 2010-2015, L(m=7,r=4,s=2).
Eric Weisstein's World of Mathematics, Dirichlet L-Series.

Cf. A326919, A327135.

(PolyGamma[1, 1/7] + PolyGamma[1, 2/7] - PolyGamma[1, 3/7] + PolyGamma[1, 4/7] - PolyGamma[1, 5/7] - PolyGamma[1, 6/7])/49 // RealDigits[#, 10, 102]& // First

(Psi(1, 1/7) + Psi(1, 2/7) - Psi(1, 3/7) + Psi(1, 4/7) - Psi(1, 5/7) - Psi(1, 6/7))/49, where Psi(1, x) is the polygamma function of order 1.
Equals Sum_{n>=1} A175629(n)/n^2. - R. J. Mathar, Jan 15 2021
Equals 1/(Product_{p prime == 1, 2 or 4 (mod 7)} (1 - 1/p^2) * Product_{p prime == 3, 5 or 6 (mod 7)} (1 + 1/p^2)). - Amiram Eldar, Dec 17 2023

Formula updated by Jean-François Alcover, Apr 01 2015

cp's OEIS Frontend

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Magma

Mathematica

PARI

PARI

PARI

Formula

A327135 Decimal expansion of Sum_{k>=1} Kronecker(-7,k)/k^3.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A103133 Decimal expansion of Dirichlet series L_{-7}(2).

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

Formula

Extensions

cp's OEIS Frontend

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Magma

Mathematica

PARI

PARI

PARI

Formula

A327135 Decimal expansion of Sum_{k>=1} Kronecker(-7,k)/k^3.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A103133 Decimal expansion of Dirichlet series L_{-7}(2).

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

Formula

Extensions

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