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.

Previous Showing 41-43 of 43 results.

A208672 a(n) = floor[1/(1-f(n))], where f(n) is the least nonnegative number such that f(n)^n = cos(f(n)).

Original entry on oeis.org

1, 3, 5, 7, 9, 10, 12, 14, 15, 17, 19, 20, 22, 23, 25, 27, 28, 30, 32, 33, 35, 37, 38, 40, 41, 43, 45, 46, 48, 50, 51, 53, 54, 56, 58, 59, 61, 63, 64, 66, 67, 69, 71, 72, 74, 76, 77, 79, 80, 82, 84, 85, 87, 89, 90, 92
Offset: 0

Views

Author

Ben Branman, Feb 29 2012

Keywords

Comments

For n=0, the only possible solution is f(0)=0, which yields a(0)=1.
f(n)->1 as n->infinity.
a(n) ~ -n/log(cos(1))
f(1) = the Dottie number 0.73908513321516 = A003957
f(2) is A125578
f(3) is A125579
a(n) is defined for negative values of n as well.
If we let a(n)=floor[c(n)], c(n)=1/(1-f(n)), then f(n)^n=cos(f(n)) <=> 1-1/c(n) = cos(1-1/c(n))^(1/n) = exp(log(cos(1-1/c(n)))/n) = exp(log(cos(1)+O(1/c(n)^2))/n) = 1+log(cos(1))/n+o(1/n), assuming c(n) ~ c*n, which then yields c = -1/log(cos(1)). - M. F. Hasler, Mar 05 2012

Examples

			For n=4, the only positive solution to x^4=cos(x) is x=0.890553, so a(4)=floor(1/(1-.890553)) = floor(9.13682) = 9, so a(4)=9.
		

Crossrefs

Programs

  • Mathematica
    f[n_] := 1/(1 - FindRoot[x^n == Cos[x], {x, 0, 1}, WorkingPrecision -> 1000][[1,2]]); Table[Floor[f[n]], {n, 0, 100}]
  • PARI
    a(n)=1\(1-solve(x=0,1,x^n-cos(x))) \\ Charles R Greathouse IV, Mar 04 2012

A277077 Decimal expansion of the root of cos(sin(x)) - x = 0.

Original entry on oeis.org

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

Views

Author

David D. Acker, Sep 27 2016

Keywords

Comments

The fixed point solution for the composite function y = cos(sin(x)).
The value A131691 is equal to the arccosine of this value and this value is equal to the arcsine of A131691.

Examples

			0.76816915673679597746208623955865641813208731218273718569186715...
		

Crossrefs

Cf. A131691 (reversed form), A003957 (fixed point solution for cosine).

Programs

  • Mathematica
    FindRoot[-x + Cos[Sin[x]] == 0, {x, 0.5, 1}, WorkingPrecision -> 265]
  • PARI
    solve(x=0.5, 1, cos(sin(x))-x) \\ Michel Marcus, Sep 29 2016

Formula

Recursion: f(n) = cos(sin(f(n-1))) n->infinity.
Root of cos(sin(x)) - x = 0.

A342204 Decimal expansion of the fixed point of the cosine function when measured in quadrants (1 quadrant = 90 degrees = Pi/2 radians).

Original entry on oeis.org

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

Views

Author

Michael Sheridan, Mar 04 2021

Keywords

Comments

This is analogous to A003957, the fixed point of the cosine function in radians and A330119, the fixed point of the cosine function in degrees. Each of the three are the unique real solutions to cos(x)-x=0, in their respective angular units. The quadrant unit offers a nice symmetry, cos(0)=1 and cos(1)=0. Unlike the previous two, the quadrant fixed point is not an attractor of its cosine function. It cannot be found by iterative cosine application. Although not proven, iterative quadrant cosine can be seen empirically to diverge for all initial values.
A graphical solution can be demonstrated by plotting y = cos(x*Pi/2) - x, which shows a single zero near x=0.6.
The bisection method converges for the entire range of the cosine function (-1 to 1). Newton's method also converges with reasonable initial estimate.

Examples

			0.594611644056835582988461884634773924789949372717025145030185743014299027963938...
		

Crossrefs

Programs

  • Mathematica
    RealDigits[x /. FindRoot[Cos[Pi*x/2] == x, {x, 1}, WorkingPrecision -> 105], 10, 100][[1]] (* Amiram Eldar, Mar 05 2021 *)
  • Maxima
    fpprec :100;
    bf_find_root(cos(x*%pi/2)-x,x,0,1) ;
  • PARI
    \p 100
    solve(x=-1,1,cos(Pi*x/2)-x)
    
Previous Showing 41-43 of 43 results.