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.

A085365 Decimal expansion of the Kepler-Bouwkamp or polygon-inscribing constant.

Original entry on oeis.org

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

Views

Author

Eric W. Weisstein, Jun 25 2003

Keywords

Comments

Inscribe an equilateral triangle in a circle of unit radius. Inscribe a circle in the triangle. Inscribe a square in the second circle and inscribe a circle in the square. Inscribe a regular pentagon in the third circle and so on. The radii of the circles converge to Product_{ k = 3..infinity } cos(Pi/k), which is this number. - N. J. A. Sloane, Feb 10 2008
"It is stated in Kasner and Newman's 'Mathematics and the Imagination' (pp. 269-270 in the Pelican edition) that P=Product{k=3..infinity} cos(Pi/k) is approximately equal to 1/12. Not so! ..., so that a very good approximation to P is 10/87 ...", by Grimstone. - Robert G. Wilson v, Dec 22 2013
Named after the German astronomer and mathematician Johannes Kepler (1571 - 1630) and the Dutch mathematician Christoffel Jacob Bouwkamp (1915 - 2003). - Amiram Eldar, Aug 21 2020

Examples

			0.1149420448532...
		

References

  • Dick Katz, Problem 91:24, in R. K. Guy, ed., Western Number Theory Problems, 1992-12-19 & 22.
  • Steven R. Finch, Mathematical Constants, Encyclopedia of Mathematics and its Applications, vol. 94, Cambridge University Press, 2003, Section 6.3, p. 428.
  • Clifford A. Pickover, The Math Book, From Pythagoras to the 57th Dimension, 250 Milestones in the History of Mathematics, Sterling Publ., NY, 2009, p. 382.

Crossrefs

Programs

  • Maple
    evalf(1/(product(sec(Pi/k), k=3..infinity)), 104) # Vaclav Kotesovec, Sep 20 2014
  • Mathematica
    (* The naive approach, N[ Product[ Cos[ Pi/n], {n, 3, Infinity}], 111], yields only 27 correct decimals. - Vaclav Kotesovec, Sep 20 2014 *)
    Block[{$MaxExtraPrecision = 1000}, Do[Print[N[Exp[Sum[-(2^(2*n)-1)/n * Zeta[2*n]*(Zeta[2*n] - 1 - 1/2^(2*n)), {n, 1, m}]], 110]], {m, 250, 300}]] (* over 100 decimal places are correct, Vaclav Kotesovec, Sep 20 2014 *)
  • PARI
    exp(sumpos(n=3,log(cos(Pi/n)))) \\ M. F. Hasler, May 18 2014

Formula

Equals Product_{n>=3} cos(Pi/n).
The log of this constant is equal to Sum_{n=1..infinity} -((2^(2*n)-1)/n) * zeta(2*n) * (zeta(2*n)-1-1/2^(2*n)). [Richard McIntosh] - N. J. A. Sloane, Feb 10 2008
Equals 1/A051762. - M. F. Hasler, May 18 2014
Equals product A365255 * A365256. - R. J. Mathar, Aug 30 2023

Extensions

Edited by M. F. Hasler, May 18 2014
First formula corrected (missing sign) by Vaclav Kotesovec, Sep 20 2014
Terms since 27 corrected by Vaclav Kotesovec, Sep 20 2014 (recomputed with higher precision)