A340808 -id:A340808 - cp's OEIS frontend

A340629 Decimal expansion of Product_{primes p == 1 (mod 5)} (p^2+1)/(p^2-1).

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

Offset: 1

Artur Jasinski, Jan 13 2021

			1.0218780604187566757444489146002708261704607377325...

Vaclav Kotesovec, Table of n, a(n) for n = 1..500
Salma Ettahri, Olivier Ramaré, and Léon Surel, Fast multi-precision computation of some Euler products, arXiv:1908.06808 [math.NT], 2019, p. 20 (70-digit-precision data).
Steven Finch, Greg Martin, and Pascal Sebah, Roots of unity and nullity modulo n, Proc. Amer. Math. Soc. Volume 138, Number 8, August 2010, pp. 2729-2743.
Steven Finch and Pascal Sebah, Residue of a Mod 5 Euler Product, arXiv:0912.3677 [math.NT], 2009 (formulas).
Alessandro Languasco and Alessandro Zaccagnini, On the constant in the Mertens product for arithmetic progressions. I. Identities, Funct. Approx. Comment. Math. Volume 42, Number 1 (2010), 17-27, (preliminary version).
Richard J. Mathar, Table of Dirichlet L-Series and Prime Zeta Modulo Functions for Small Moduli, arXiv:1008.2547 [math.NT], 2010-2015.

Cf. A175646, A175647, A248930, A248938, A301429, A333240, A334826, A335963, A340576, A340577, A340578, A340628.

evalf(Re(15*sqrt((1/13)*(5*((I*Pi^2*(1/150)-I*polylog(2, (-1)^(2/5)))^2+((1/150)*(11*I)*Pi^2+I*polylog(2, (-1)^(4/5)))^2)))/Pi^2), 120) # Vaclav Kotesovec, Jan 20 2021, after formula by Pascal Sebah.

S[m_, n_, s_] := (t = 1; sums = 0; difs = 1; While[Abs[difs] > 10^(-digits - 5) || difs == 0, difs = (MoebiusMu[t]/t) * Log[If[s*t == 1, DirichletL[m, n, s*t], Sum[Zeta[s*t, j/m]*DirichletCharacter[m, n, j]^t, {j, 1, m}]/m^(s*t)]]; sums = sums + difs; t++]; sums);
P[m_, n_, s_] := 1/EulerPhi[m] * Sum[Conjugate[DirichletCharacter[m, r, n]] * S[m, r, s], {r, 1, EulerPhi[m]}] + Sum[If[GCD[p, m] > 1 && Mod[p, m] == n, 1/p^s, 0], {p, 1, m}];
Z[m_, n_, s_] := (w = 1; sumz = 0; difz = 1; While[Abs[difz] > 10^(-digits - 5), difz = P[m, n, s*w]/w; sumz = sumz + difz; PrintTemporary["iteration = ", w, ", difference = ", N[difz, digits]]; w++]; Exp[sumz]);
$MaxExtraPrecision = 1000; digits = 121; Chop[N[1/(Z[5,1,4]/Z[5,1,2]^2), digits]] (* Vaclav Kotesovec, Jan 15 2021, took over 20 minutes *)
digits = 121; digitize[c_] := RealDigits[Chop[N[c, digits]], 10, digits][[1]];
cl[x_] := I (PolyLog[2, (-1)^x] - PolyLog[2, -(-1)^(1 - x)]);
A340629 := (15 Sqrt[65]/(26 Pi^2)) Sqrt[cl[2/5]^2 + cl[4/5]^2];
digitize[A340629] (* Peter Luschny, Jan 23 2021 *)

Equals 6*sqrt(5)/(13*A340628).
Equals A340004^2/A340808. - R. J. Mathar, Jan 15 2021
Equals 15*sqrt(65)*g/(13*Pi^2) where g = sqrt(Cl2(2*Pi/5)^2 + Cl2(4*Pi/5)^2) = 1.0841621352693895..., and Cl2 is the Clausen function of order 2. Formula by Pascal Sebah (personal communication). - Artur Jasinski, Jan 20 2021
Equals Sum_{q in A004615} 2^A001221(q)/q^2. - R. J. Mathar, Jan 27 2021

Corrected and more terms from Vaclav Kotesovec, Jan 15 2021

A340839 Decimal expansion of Mertens constant C(5,1).

Original entry on oeis.org

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

Offset: 1

Artur Jasinski, Jan 23 2021

Data taken from Alessandro Languasco and Alessandro Zaccagnini 2007.

			1.225238438539084580057609774749220527540595509391649938767...

Steven R. Finch, Mathematical Constants, Cambridge University Press, 2003, Section 2.2 Meissel-Mertens constants (pp. 94-95)

Vaclav Kotesovec, Table of n, a(n) for n = 1..499
Alessandro Languasco and Alessandro Zaccagnini, On the constant in the Mertens product for arithmetic progressions. II: Numerical values, Math. Comp. 78 (2009), 315-326.
Alessandro Languasco and Alessandro Zaccagnini, Computation of the Mertens constants - more than 100 correct digits, (2007), 1-134 (digital data relative to the previous paper). [in this table on page 4, the last correct digit is a(109), beyond the level there certified. - _Vaclav Kotesovec_, Jan 26 2021]
Alessandro Languasco and Alessandro Zaccagnini, Computation of the Mertens constants mod q; 3 <= q <= 100, (2007) (GP-PARI procedure 100 digits accuracy).
Alessandro Languasco and Alessandro Zaccagnini, On the constant in the Mertens product for arithmetic progressions. I. Identities., Funct. Approx. Comment. Math. Volume 42, Number 1 (2010), 17-27.
For other links see A340711.

Cf. A077761, A083343, A091589, A138312, A161529, A230767, A238114, A271971, A340127, A340794, A340866.

A = C(5,1)=1.225238438539084580057609774749220527540595509391649938767...
B = C(5,2)=0.546975845411263480238301287430814037751996324100819295153...
C = C(5,3)=0.805951040448267864057376860278430932081288114939010897934...
D = C(5,4)=1.299364547914977988160840014964265909502574970408329662016...
A*B*C*D = 0.70182435445860646228... = (5/4)*exp(-gamma), where gamma is the Euler-Mascheroni constant A001620.
Formula from the article by Languasco and Zaccagnini, 2010, p.9:
A = ((13*sqrt(5)*Pi^2*exp(-gamma))/(150*log((1+sqrt(5))/2))*A340628/A340808)^(1/4).

Last 11 digits corrected by Vaclav Kotesovec, Jan 25 2021

More digits from Vaclav Kotesovec, Jan 26 2021

A340809 Decimal expansion of Product_{primes p == 4 (mod 5)} 1/(1-p^(-4)).

Original entry on oeis.org

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

Offset: 1

R. J. Mathar, Jan 22 2021

Equals also the same product over the primes p==9 (mod 10).

			1.0000092261581025751416880414384715475110104...

Vaclav Kotesovec, Table of n, a(n) for n = 1..500
R. J. Mathar, Table of Dirichlet L-series and prime zeta modulo functions for small moduli, arXiv:1008.2547 [math.NT], 2010-2015, Zeta_{m=5,n=4}(s=4).

Cf. A004618, A030433, A340127 (s=2), A340628, A340808, A340926, A340927.

Equals A340127 ^2/A340628

Equals Sum_{k>=1} 1/A004618(k)^4. - Amiram Eldar, Jan 24 2021

More digits from Vaclav Kotesovec, Jan 22 2021

A340926 Decimal expansion of Product_{primes p == 2 (mod 5)} 1/(1 - 1/p^4).

Original entry on oeis.org

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

Offset: 1

Vaclav Kotesovec, Jan 27 2021

			1.067124761502234255634582163136137073885091716528006051500764099869277...

Vaclav Kotesovec, Table of n, a(n) for n = 1..500
R. J. Mathar, Table of Dirichlet L-series and Prime Zeta Modulo Functions for Small Moduli, arXiv:1008.2547 [math.NT], 2010-2015, Zeta_{m=5,n=2}(s=4).

Cf. A340808, A340809, A340927.
Cf. A340004, A340794, A340665, A340127.
Cf. A340629, A340710, A340711, A340628.

Equals A340794^2 / A340710.
Equals 104*Pi^4 / (9375 * A340808 * A340927 * A340809).
Equals Sum_{k>=1} 1/A004616(k)^4. - Amiram Eldar, Jan 28 2021

A340927 Decimal expansion of Product_{primes p == 3 (mod 5)} 1/(1 - 1/p^4).

Original entry on oeis.org

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

Offset: 1

Vaclav Kotesovec, Jan 27 2021

			1.012539571644935903522100272691152140478362802787749854800134772695303...

Vaclav Kotesovec, Table of n, a(n) for n = 1..500
R. J. Mathar, Table of Dirichlet L-series and Prime Zeta Modulo Functions for Small Moduli, arXiv:1008.2547 [math.NT], 2010-2015, Zeta_{m=5,n=3}(s=4).

Cf. A340808, A340809, A340926.
Cf. A340004, A340794, A340665, A340127.
Cf. A340629, A340710, A340711, A340628.

Equals A340665^2 / A340711.
Equals 104*Pi^4 / (9375 * A340808 * A340926 * A340809).
Equals Sum_{k>=1} 1/A004617(k)^4. - Amiram Eldar, Jan 28 2021

A340884 Decimal expansion of the constant rho(1,5).

Original entry on oeis.org

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

Offset: 0

Artur Jasinski, Jan 25 2021

From definition Steven Finch and Pascal Sebah 2009 p. 1:

rho(n,m) = lim_{s->1} (s-1) Product_{primes p==n (mod m)} (1-1/p^s)^phi(m), where phi(n) = A000010(n) is the Euler totient function.

			0.249135702764931424659963795...

Steven Finch and Pascal Sebah, Residue of a Mod 5 Euler Product, arXiv:0912.3677 [math.NT], 2009 p. 1-2.

Cf. A340628, A340808, A340004.

Equals 1/(exp(gamma)*A340839^4).
Formulas by Steven Finch and Pascal Sebah 2009 p. 2.
Equals 5*log(2 + sqrt(5))*A340004^2/(3*Pi^2).
Equals 50*log(2 + sqrt(5))*A340808/(13*Pi^2*sqrt(5)*A340628).

cp's OEIS Frontend

A340629 Decimal expansion of Product_{primes p == 1 (mod 5)} (p^2+1)/(p^2-1).

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

Extensions

A340839 Decimal expansion of Mertens constant C(5,1).

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Formula

Extensions

A340809 Decimal expansion of Product_{primes p == 4 (mod 5)} 1/(1-p^(-4)).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Formula

Extensions

A340926 Decimal expansion of Product_{primes p == 2 (mod 5)} 1/(1 - 1/p^4).

Views

Author

Keywords

Examples

Links

Crossrefs

Formula

A340927 Decimal expansion of Product_{primes p == 3 (mod 5)} 1/(1 - 1/p^4).

Views

Author

Keywords

Examples

Links

Crossrefs

Formula

A340884 Decimal expansion of the constant rho(1,5).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Formula