A085993 -id:A085993 - cp's OEIS frontend

A085964 Decimal expansion of the prime zeta function at 4.

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

Offset: 0

Antonio G. Astudillo (afg_astudillo(AT)lycos.com), Jul 06 2003

Mathar's Table 1 (cited below) lists expansions of the prime zeta function at integers s in 10..39. - Jason Kimberley, Jan 05 2017

			0.0769931397642468449426...

Henri Cohen, Number Theory, Volume II: Analytic and Modern Tools, GTM Vol. 240, Springer, 2007; see pp. 208-209.
J. W. L. Glaisher, On the Sums of Inverse Powers of the Prime Numbers, Quart. J. Math. 25, 347-362, 1891.

Jason Kimberley, Table of n, a(n) for n = 0..1603
Henri Cohen, High Precision Computation of Hardy-Littlewood Constants, Preprint, 1998.
Henri Cohen, High-precision computation of Hardy-Littlewood constants. [pdf copy, with permission]
X. Gourdon and P. Sebah, Some Constants from Number theory
R. J. Mathar, Series of reciprocal powers of k-almost primes, arXiv:0803.0900 [math.NT], 2008-2009. Table 1.
Eric Weisstein's World of Mathematics, Prime Zeta Function

Decimal expansion of the prime zeta function: A085548 (at 2), A085541 (at 3), this sequence (at 4), A085965 (at 5) to A085969 (at 9).

Cf. A013662, A030514, A242303.

R := RealField(106);
PrimeZeta := func;
[0]cat Reverse(IntegerToSequence(Floor(PrimeZeta(4,87)*10^105)));
// Jason Kimberley, Dec 30 2016

s[n_] := s[n] = Sum[ MoebiusMu[k]*Log[Zeta[4*k]]/k, {k, 1, n}] // RealDigits[#, 10, 104]& // First // Prepend[#, 0]&; s[100]; s[n = 200]; While[s[n] != s[n - 100], n = n + 100]; s[n] (* Jean-François Alcover, Feb 14 2013 *)
RealDigits[ PrimeZetaP[ 4], 10, 111][[1]] (* Robert G. Wilson v, Sep 03 2014 *)

sumeulerrat(1/p,4) \\ Hugo Pfoertner, Feb 03 2020

P(4) = Sum_{p prime} 1/p^4 = Sum_{n>=1} mobius(n)*log(zeta(4*n))/n
Equals A086034 + A085993 + 1/16. - R. J. Mathar, Jul 22 2010
Equals Sum_{k>=1} 1/A030514(k). - Amiram Eldar, Jul 27 2020

A086034 Decimal expansion of the prime zeta modulo function at 4 for primes of the form 4k+1.

Original entry on oeis.org

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

Offset: 0

Antonio G. Astudillo (afg_astudillo(AT)lycos.com), Jul 07 2003

			0.0016495841540292915989967613136388518274879099438347321478115258388...

X. Gourdon and P. Sebah, Some Constants from Number theory.
R. J. Mathar, Table of Dirichlet L-series and prime zeta modulo functions for small moduli, arXiv:1008.2547 [math.NT], 2010-2015, value P(m=4, n=1, s=4), page 21.
OEIS index to entries related to the (prime) zeta function.

Cf. A085993 (same for primes 4k+3), A343624 (for primes 3k+1), A343614 (for primes 3k+2), A086032 - A086039 (for 1/p^2, ..., 1/p^9), A085541 (PrimeZeta(3)), A002144 (primes of the form 4k+1).

a[s_] = (1 + 2^-s)^-1* DirichletBeta[s] Zeta[s]/Zeta[2 s]; m = 120; $MaxExtraPrecision = 680; Join[{0, 0}, RealDigits[(1/2)* NSum[MoebiusMu[2n + 1]*Log[a[(2n + 1)*4]]/(2n + 1), {n, 0, m}, AccuracyGoal -> m, NSumTerms -> m, PrecisionGoal -> m, WorkingPrecision -> m]][[1]]][[1 ;; 105]] (* Jean-François Alcover, Jun 24 2011, after X. Gourdon and P. Sebah, updated Mar 14 2018 *)

A086034_upto(N=100)={localprec(N+3); digits((PrimeZeta41(4)+1)\.1^N)[^1]} \\ see A086032 for the PrimeZeta41 function. - M. F. Hasler, Apr 26 2021

Zeta_Q(4) = Sum_{p in A002144} 1/p^4 where A002144 = {primes p == 1 mod 4};

= Sum_{odd m > 0} mu(m)/2m * log(DirichletBeta(4m)*zeta(4m)/zeta(8m)/(1+2^(-4m)))[using Gourdon & Sebah, Theorem 11] - M. F. Hasler, Apr 26 2021.

Edited by M. F. Hasler, Apr 26 2021

A343614 Decimal expansion of P_{3,2}(4) = Sum 1/p^4 over primes == 2 (mod 3).

Original entry on oeis.org

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

Offset: 0

M. F. Hasler, Apr 22 2021

The prime zeta modulo function P_{m,r}(s) = Sum_{primes p == r (mod m)} 1/p^s generalizes the prime zeta function P(s) = Sum_{primes p} 1/p^s.

			P_{3,2}(4) = 0.06418614569655777899009908658740273681...

R. J. Mathar, Table of Dirichlet L-series and Prime Zeta Modulo Functions for Small Moduli, arXiv:1008.2547 [math.NT], 2010-2015.
OEIS index to entries related to the (prime) zeta function.

Cf. A003627 (primes 3k-1), A085964 (PrimeZeta(4)), A021085 (1/3^4).

Cf. A343624 (same for primes 3k+1), A086034 (for primes 4k+1), A085993 (for primes 4k+3), A343612 - A343619 (P_{3,2}(2..9): same for 1/p^2, ..., 1/p^9).

s=0;forprimestep(p=2,1e8,3,s+=1./p^4);s \\ For illustration: using primes up to 10^N gives about 3N+2 (= 26 for N=8) correct digits.

A343614_upto(N=100)={localprec(N+5); digits((PrimeZeta32(4)+1)\.1^N)[^1]} \\ see for the function PrimeZeta32.

P_{3,2}(4) = P(4) - 1/3^4 - P_{3,1}(4) = A085964 - A021085 - A343624.

cp's OEIS Frontend

A085964 Decimal expansion of the prime zeta function at 4.

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Magma

Mathematica

PARI

Formula

A086034 Decimal expansion of the prime zeta modulo function at 4 for primes of the form 4k+1.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A343614 Decimal expansion of P_{3,2}(4) = Sum 1/p^4 over primes == 2 (mod 3).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

PARI

PARI

Formula