cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-3 of 3 results.

A079555 Decimal expansion of Product_{k>=1} (1 + 1/2^k) = 2.384231029031371...

Original entry on oeis.org

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

Views

Author

Benoit Cloitre, Jan 25 2003

Keywords

Examples

			2.38423102903137172414989928867839723877161951650843345769...
		

Crossrefs

Programs

  • Mathematica
    digits = 105; NProduct[(1 + 1/2^k), {k, 1, Infinity}, WorkingPrecision -> digits+10, NProductFactors -> 200] // RealDigits[#, 10, digits]& // First (* Jean-François Alcover, Feb 14 2013 *)
    N[QPochhammer[-1/2,1/2]] (* G. C. Greubel, Dec 05 2015 *)
    1/N[QPochhammer[1/2, 1/4]] (* Gleb Koloskov, Apr 04 2021 *)
  • PARI
    prodinf(n=1,1+2.^-n) \\ Charles R Greathouse IV, May 27 2015
    
  • PARI
    1/prodinf(n=0, 1-2^(-2*n-1)) \\ Gleb Koloskov, Apr 04 2021

Formula

(1/2)*lim sup Product_{k=0..floor(log_2(n)), (1 + 1/floor(n/2^k))} for n-->oo. - Hieronymus Fischer, Aug 20 2007
(1/2)*lim sup A132369(n)/A098844(n) for n-->oo. - Hieronymus Fischer, Aug 20 2007
(1/2)*lim sup A132269(n)/n^((1+log_2(n))/2) for n-->oo. - Hieronymus Fischer, Aug 20 2007
(1/2)*lim sup A132270(n)/n^((log_2(n)-1)/2) for n-->oo. - Hieronymus Fischer, Aug 20 2007
exp(sum{n>0, 2^(-n)*sum{k|n, -(-1)^k/k}})=exp(sum{n>0, A000593(n)/(n*2^n)}). - Hieronymus Fischer, Aug 20 2007
(1/2)*lim sup A132269(n+1)/A132269(n)=2.3842310290313717241498992886... for n-->oo. - Hieronymus Fischer, Aug 20 2007
Equals (-1/2; 1/2){infinity}, where (a;q){infinity} is the q-Pochhammer symbol. - G. C. Greubel, Dec 05 2015
2 + Sum_{k>1} 1/(Product_{i=2..k} (2^i-1)) = 2 + 1/3 + 1/(3*7) + 1/(3*7*15) + 1/(3*7*15*31) + 1/(3*7*15*31*63) + ... (conjecture). - Werner Schulte, Dec 22 2016
From Peter Bala, Dec 15 2020: (Start)
The above conjecture of Schulte follows by setting x = 1/2 and t = -1 in the identity Product_{k >= 1} (1 - t*x^k) = Sum_{n >= 0} (-1)^n*x^(n*(n+1)/2)*t^n/( Product_{k = 1..n} 1 - x^k ), due to Euler.
Constant C = 1 + Sum_{n >= 0} (1/2)^(n+1)*Product_{k = 1..n} (1 + 1/2^k).
C = 2 + Sum_{n >= 0} (1/4)^(n+1)*Product_{k = 1..n} (1 + 1/2^k).
3*C = 7 + Sum_{n >= 0} (1/8)^(n+1)*Product_{k = 1..n} (1 + 1/2^k).
3*7*C = 50 + Sum_{n >= 0} (1/16)^(n+1)*Product_{k = 1..n} (1 + 1/2^k).
3*7*15*C = 751 + Sum_{n >= 0} (1/32)^(n+1)*Product_{k = 1..n} (1 + 1/2^k).
(End)
Equals 1/(1-P), where P is the Pell constant from A141848. - Gleb Koloskov, Apr 04 2021
Equals Sum_{k>=0} A000009(k)/2^k. - Vaclav Kotesovec, Sep 15 2021
From Amiram Eldar, Feb 19 2022: (Start)
Equals (sqrt(2)/2) * exp(log(2)/24 + Pi^2/(12*log(2))) * Product_{k>=1} (1 - exp(-2*(2*k-1)*Pi^2/log(2))) (McIntosh, 1995).
Equals (1/2) * A081845.
Equals Sum_{n>=0} 1/A005329(n). (End)

A246768 Decimal expansion of Sum_{k >= 1} log(1 + 1/2^k), a digital tree search constant.

Original entry on oeis.org

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

Views

Author

Jean-François Alcover, Sep 03 2014

Keywords

Examples

			0.8688766526585549981531278013138377850925800684998667964...
		

Crossrefs

Cf. A141848. - Gleb Koloskov, Apr 04 2021

Programs

  • Mathematica
    digits = 103; NSum[Log[1 + 1/2^k], {k, 1, Infinity}, WorkingPrecision -> digits+10, NSumTerms -> 60] // RealDigits[#, 10, digits]& // First
    N[-Log[QPochhammer[1/2, 1/4]]] (* Gleb Koloskov, Apr 04 2021 *)
  • PARI
    -log(prodinf(n=0, 1-2^(-2*n-1))) \\ Gleb Koloskov, Apr 04 2021

Formula

Also equals Sum_{k >= 1} (-1)^(k-1)/(k*(2^k - 1)).
A245675 = 1/12 + Pi^2/(6*log(2)^2) - 2*A246768/log(2) = 1.000000000001237...
Equals -log(1-P), where P is the Pell constant from A141848. - Gleb Koloskov, Apr 04 2021

A242433 Decimal expansion of one of the Pell-Stevenhagen constants.

Original entry on oeis.org

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

Views

Author

Jean-François Alcover, May 14 2014

Keywords

Comments

P. Stevenhagen conjectured that the asymptotic counting function of the squarefree integers for which the negative Pell equation x^2 - n*y^2 = -1 has an integer solution, was f(n) ~ (6/Pi^2)*P*K*n/sqrt(log(n)).

Examples

			0.26973184619696337738212710674891...
		

References

  • Steven R. Finch, Mathematical Constants, Cambridge University Press, 2003, p. 119.

Crossrefs

Programs

  • Mathematica
    (* After Victor Adamchik *) LandauRamanujan[n_] := With[{K = Ceiling[Log[2, n*Log[3, 10]]]}, N[Product[(((1 - 2^(-2^k))*4^2^k*Zeta[2^k])/(Zeta[2^k, 1/4] - Zeta[2^k, 3/4]))^2^(-k - 1), {k, 1, K}]/Sqrt[2], n]]; K = LandauRamanujan[100]; P = 1 - QPochhammer[1/2, 1/4]; RealDigits[6/Pi^2*P*K, 10, 100] // First

Formula

(6/Pi^2)*P*K where P is the Pell constant 0.5805775582... and K the Landau-Ramanujan constant 0.7642236535...
Showing 1-3 of 3 results.