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-4 of 4 results.

A003957 The Dottie number: decimal expansion of root of cos(x) = x.

Original entry on oeis.org

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

Views

Author

Keywords

Comments

Let P be the point in quadrant I where the curve y=sin(x) meets the circle x^2+y^2=1. Let d be the Dottie number. Then P=(d,sin(d)), and d is the slope at P of the sine curve. - Clark Kimberling, Oct 07 2011
From Ben Branman, Dec 28 2011: (Start)
The name "Dottie" is of no fundamental mathematical significance since it refers to a particular French professor who--no doubt like many other calculator users before and after her--noticed that whenever she typed a number into her calculator and hit the cosine button repeatedly, the result always converged to this value.
The number is well-known, having appeared in numerous elementary works on algebra already by the late 1880s (e.g., Bertrand 1865, p. 285; Heis 1886, p. 468; Briot 1881, pp. 341-343), and probably much earlier as well. It is also known simply as the cosine constant, cosine superposition constant, iterated cosine constant, or cosine fixed point constant. Arakelian (1981, pp. 135-136; 1995) has used the Armenian small letter ayb (ա, the first letter in the Armenian alphabet) to denote this constant. (End)

Examples

			0.73908513321516064165531208767387340401341175890075746496568063577328...
		

References

  • H. Arakelian, The Fundamental Dimensionless Values (Their Role and Importance for the Methodology of Science). [In Russian.] Yerevan, Armenia: Armenian National Academy of Sciences, 1981.
  • A. Baker, Theorem 1.4 in Transcendental Number Theory. Cambridge, England: Cambridge University Press, 1975.

Crossrefs

Cf. A330119 (degrees-based analog).

Programs

  • Maple
    evalf(solve(cos(x)=x,x), 140);  # Alois P. Heinz, Feb 20 2024
  • Mathematica
    RealDigits[ FindRoot[ Cos[x] == x, {x, {.7, 1} }, WorkingPrecision -> 120] [[1, 2] ]] [[1]]
    FindRoot[Cos[x] == x, {x, {.7, 1}}, WorkingPrecision -> 500][[1, 2]][[1]] (* Ben Branman, Apr 12 2008 *)
    N[NestList[Cos, 1, 100], 20] (* Clark Kimberling, Jul 01 2019 *)
    RealDigits[Root[{# - Cos[#] &, 0.739085}], 10, 100][[1]] (* Eric W. Weisstein, Jul 15 2022 *)
    RealDigits[Sqrt[1 - (2 InverseBetaRegularized[1/2, 1/2, 3/2] - 1)^2], 10, 100][[1]] (* Eric W. Weisstein, Jul 15 2022 *)
  • PARI
    solve(x=0,1,cos(x)-x) \\ Charles R Greathouse IV, Dec 31 2011
    
  • Python
    from sympy import Symbol, nsolve, cos
    x = Symbol("x")
    a = list(map(int, str(nsolve(cos(x)-x, 1, prec=110))[2:-2]))
    print(a) # Michael S. Branicky, Jul 15 2022

Formula

Equals twice A197002. - Hugo Pfoertner, Feb 20 2024

Extensions

More terms from David W. Wilson
Additional references from Ben Branman, Dec 28 2011

A212112 Numerators of convergents to the Dottie number, A003957.

Original entry on oeis.org

0, 1, 2, 3, 14, 17, 694, 711, 7093, 29083, 65259, 94342, 1480389, 3055120, 38141829, 41196949, 903277758, 944474707, 16959347777, 882830559111, 2665451025110, 3548281584221, 23955140530436
Offset: 0

Views

Author

Ben Branman, May 01 2012

Keywords

Crossrefs

Programs

  • Mathematica
    z = FindRoot[Cos[x] == x, {x, 0, 1}, WorkingPrecision -> 10000][[1, -1]]; Numerator[Convergents[z, 100]]

A302977 Numerators of the rational factor of Kaplan's series for the Dottie number.

Original entry on oeis.org

1, -1, -1, -43, -223, -60623, -764783, -107351407, -2499928867, -596767688063, -22200786516383, -64470807442488761, -3504534741776035061, -3597207408242668198973, -268918457620309807441853, -185388032403184965693274807, -18241991360742724891839902347
Offset: 0

Views

Author

Ozaner Hansha, Apr 16 2018

Keywords

Comments

In Kaplan's original article, where the term "Dottie" was coined, he mentioned that while the number was indeed transcendental, it was possible to express it as an infinite sum with the general term r_n*Pi^(2n+1) where r_n was a sequence of rational numbers.

Examples

			The partial Kaplan series at n=3 is d = Pi/4 - Pi^3/768 - Pi^5/61440 - 43*Pi^7/165150720.
		

Crossrefs

Cf. A306254 (denominators).

Programs

  • Mathematica
    f[x_] := x - Cos[x]; g[x_] := InverseFunction[f][x]; s = {1}; Do[AppendTo[s, Numerator[(-1/2)^n * 1/n! * Derivative[n][g][Pi/2]]], {n, 3, 30, 2}]; s (* Amiram Eldar, Jan 31 2019 *)

Formula

These are the numerators of the unique sequence of rational numbers r_n such that d = Sum_{n>=0} r_n*Pi^(2*n+1) (where d is the Dottie number A003957).
r_0 = 1/4 and for n>0, r_n = b_(2*n+1); where b_n = g^(n)(Pi/2)/(2^n*n!) (and g^(n) is the n-th derivative of the inverse of x - cos(x)). A proof of this can be found in the second Hansha link.

Extensions

More terms from Amiram Eldar, Jan 31 2019

A306254 Denominators of the rational factor of Kaplan's series for the Dottie number.

Original entry on oeis.org

4, 768, 61440, 165150720, 47563407360, 669692775628800, 417888291992371200, 2808209322188734464000, 3055331742541343096832000, 33437550590372458851729408000, 56175084991825730870905405440000, 7276695809501137874093602599075840000, 17464069942802730897824646237782016000000
Offset: 0

Views

Author

Amiram Eldar, Feb 01 2019

Keywords

Comments

These are the denominators of the unique sequence of rational numbers r_n such that d = Sum_{n>=0} r_n*Pi^(2*n+1) (where d is the Dottie number A003957). The numerators are in A302977.

Examples

			The Kaplan series begins with d = Pi/4 - Pi^3/768 - Pi^5/61440 - 43*Pi^7/165150720 - ...
		

Crossrefs

Programs

  • Mathematica
    f[x_] := x - Cos[x]; g[x_] := InverseFunction[f][x]; s = {}; Do[AppendTo[s, Denominator[(-1/2)^n * 1/n! * Derivative[n][g][Pi/2]]], {n, 1, 30, 2}]; s
Showing 1-4 of 4 results.