login
Decimal expansion of the Product_{p>=2} 1+p^2/((p-1)^2*(p+1)^2) where p are successive prime numbers A000040.
2

%I #27 Jan 23 2024 08:42:10

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

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

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

%N Decimal expansion of the Product_{p>=2} 1+p^2/((p-1)^2*(p+1)^2) where p are successive prime numbers A000040.

%C This is a rational number.

%C This constant does not belong to the infinite series of prime number products of the form: Product_{p>=2} (p^(2*n)-1)/(p^(2*n)+1),

%C which are rational numbers equal to zeta(4*n)/(zeta(2*n))^2 = A114362(n+1)/A114363(n+1).

%C This number has decimal period length 230:

%C 1.81(0781476121562952243125904486251808972503617945007235890014471780028943

%C 5600578871201157742402315484804630969609261939218523878437047756874095

%C 5137481910274963820549927641099855282199710564399421128798842257597684

%C 51519536903039073806).

%F Equals 5005/2764 = 5*7*11*13/(2^2*691).

%F Equals Product_{n>=1} 1+A000040(n)^2/A084920(n)^2.

%F Equals (13/9)*A340066.

%F From _Vaclav Kotesovec_, Dec 29 2020: (Start)

%F Equals 3/2 * (Product_{p prime} (p^6+1)/(p^6-1)) * (Product_{p prime} (p^4+1)/(p^4-1)).

%F Equals 7*zeta(6)^2 / (4*zeta(12)).

%F Equals -7*binomial(12, 6) * Bernoulli(6)^2 / (8*Bernoulli(12)). (End)

%F Equals Sum_{k>=1} A005361(k)/k^2. - _Amiram Eldar_, Jan 23 2024

%e 1.8107814761215629522431259...

%t RealDigits[N[5005/2764,105]][[1]]

%o (PARI)

%o default(realprecision,105)

%o prodeulerrat(1+p^2/((p-1)^2*(p+1)^2))

%Y Cf. A000040, A005361, A084920, A065483, A065484, A065485, A109695, A111003, A114362, A114363, A116393, A167864, A231535, A307868, A330523, A330595, A335319, A335762, A335818, A339925, A340066.

%K nonn,cons,easy

%O 1,2

%A _Artur Jasinski_, Dec 28 2020