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-10 of 11 results. Next

A104457 Decimal expansion of 1 + phi = phi^2 = (3 + sqrt(5))/2.

Original entry on oeis.org

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

Views

Author

Eric W. Weisstein, Mar 08 2005

Keywords

Comments

Only first term differs from the decimal expansion of phi.
Zelo extends work of D. Roy by showing that the square of the golden ratio is the optimal exponent of approximation by algebraic numbers of degree 4 with bounded denominator and trace. - Jonathan Vos Post, Mar 02 2009 (Cf. last sentence in the Zelo reference. - Joerg Arndt, Jan 04 2014)
Hawkes asks: "What two numbers are those whose product, difference of their squares, and the ratio or quotient of their cubes, are all equal to each other?". - Charles R Greathouse IV, Dec 11 2012
This is the case n=10 in (Gamma(1/n)/Gamma(3/n))*(Gamma((n-1)/n)/Gamma((n-3)/n)) = 1+2*cos(2*Pi/n). - Bruno Berselli, Dec 14 2012
An algebraic integer of degree 2, with minimal polynomial x^2 - 3x + 1. - Charles R Greathouse IV, Nov 12 2014 [The other root is 2 - phi = A132338 - Wolfdieter Lang, Aug 29 2022]
To eight digits: 5*(((Pi+1)/e)-1) = 2.61803395481182... - Dan Graham, Nov 21 2017
The ratio diagonal/side of the second smallest diagonal in a regular 10-gon. - Mohammed Yaseen, Nov 04 2020
phi^2/10 is the moment of inertia of a solid regular icosahedron with a unit mass and a unit edge length (see A341906). - Amiram Eldar, Jun 08 2021

Examples

			2.6180339887498948482045868343656381177203091798...
		

References

  • Steven R. Finch, Mathematical Constants, Encyclopedia of Mathematics and its Applications, vol. 94, Cambridge University Press, 2003, Section 2.17.1, p. 153.
  • Alfred S. Posamentier, Math Charmers, Tantalizing Tidbits for the Mind, Prometheus Books, NY, 2003, pages 138-139.
  • Damien Roy. Diophantine Approximation in Small Degree. Centre de Recherches Mathématiques. CRM Proceedings and Lecture Notes. Volume 36 (2004), 269-285.
  • David Wells, The Penguin Dictionary of Curious and Interesting Numbers. Penguin Books, NY, 1986, Revised edition 1987. See p. 45.

Crossrefs

2 + 2*cos(2*Pi/n): A116425 (n = 7), A332438 (n = 9), A296184 (n = 10), A019973 (n = 12).

Programs

Formula

Equals 2 + A094214 = 1 + A001622. - R. J. Mathar, May 19 2008
Satisfies these three equations: x-sqrt(x)-1 = 0; x-1/sqrt(x)-2 = 0; x^2-3*x+1 = 0. - Richard R. Forberg, Oct 11 2014
Equals the nested radical sqrt(phi^2+sqrt(phi^4+sqrt(phi^8+...))). For a proof, see A094885. - Stanislav Sykora, May 24 2016
From Christian Katzmann, Mar 19 2018: (Start)
Equals Sum_{n>=0} (5*(2*n)!+8*n!^2)/(2*n!^2*3^(2*n+1)).
Equals 3/2 + Sum_{n>=0} 5*(2*n)!/(2*n!^2*3^(2*n+1)). (End)
Equals 1/A132338 = 2*A239798 = 5*A229780. - Mohammed Yaseen, Nov 04 2020
Equals Product_{k>=1} 1 + 1/(phi + phi^k), where phi is the golden ratio (A001622) (Ohtsuka, 2018). - Amiram Eldar, Dec 02 2021
c^n = phi * A001906(n) + A001519(n), where c = phi^2. - Gary W. Adamson, Sep 08 2023
Equals lim_{n->oo} S(n, 3)/S(n-1, 3) with the S-Chebyshev polynomials (see A049310), S(3, n) = A000045(2*(n+1)) = A001906(n+1). - Wolfdieter Lang, Nov 15 2023
From Peter Bala, May 08 2024: (Start)
Constant c = 2 + 2*cos(2*Pi/5).
The linear fractional transformation z -> c - c/z has order 5, that is, z = c - c/(c - c/(c - c/(c - c/(c - c/z)))). (End)
Equals Product_{k>=1} (1 + 1/A032908(k)). - Amiram Eldar, Nov 28 2024

A160389 Decimal expansion of 2*cos(Pi/7).

Original entry on oeis.org

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

Views

Author

Harry J. Smith, May 31 2009

Keywords

Comments

Arises in the approximation of 14-fold quasipatterns by 14 Fourier modes.
Let DTS(n^c) denote the set of languages accepted by a deterministic Turing machine with space n^(o(1)) and time n^(c+o(1)), and let SAT denote the Boolean satisfiability problem. Then (1) SAT is not in DTS(n^c) for any c < 2*cos(Pi/7), and (2) the Williams inference rules cannot prove that SAT is not in DTS(n^c) for any c >= 2*cos(Pi/7). These results also apply to the Boolean satisfiability problem mod m where m is in A085971 except possibly for one prime. - Charles R Greathouse IV, Jul 19 2012
rho(7):= 2*cos(Pi/7) is the length ratio (smallest diagonal)/side in the regular 7-gon (heptagon). The algebraic number field Q(rho(7)) of degree 3 is fundamental for the 7-gon. See A187360 for the minimal polynomial C(7, x) of rho(7). The other (larger) diagonal/side ratio in the heptagon is sigma(7) = -1 + rho(7)^2, approx. 2.2469796. (see the decimal expansion in A231187). sigma(7) is the limit of a(n+1)/a(n) for n->infinity for the sequences like A006054 and A077998 which can be considered as analogs of the Fibonacci sequence in the pentagon. Thus sigma(7) plays in the heptagon the role of the golden section in the pentagon. See the P. Steinbach reference. - Wolfdieter Lang, Nov 21 2013
An algebraic integer of degree 3 with minimal polynomial x^3 - x^2 - 2x + 1. - Charles R Greathouse IV, Nov 12 2014
The other two solutions of the minimal polynomial of rho(7) = 2*cos(Pi/7) are 2*cos(3*Pi/7) and 2*cos(5*Pi/7). See eq. (20) of the W. Lang link. - Wolfdieter Lang, Feb 11 2015
The constant is the square root of 3.24697... (cf. A116425). It is the fifth-longest diagonal in the regular 14-gon with unit radius, which equals 2*sin(5*Pi/14). - Gary W. Adamson, Feb 14 2022

Examples

			1.801937735804838252472204639014890102331838324263714300107124846398864...
		

References

  • John H. Conway and Richard K. Guy, The Book of Numbers, New York: Springer-Verlag, 1996. See p. 207.

Crossrefs

Cf. A039921 (continued fraction).
Cf. A003558 (the constant is cyclic with period 3, for N = 7).

Programs

  • Magma
    R:= RealField(200); Reverse(Intseq(Floor(10^110*2*Cos(Pi(R)/7)))); // Marius A. Burtea, Nov 13 2019
  • Maple
    evalf(2*cos(Pi/7), 100); # Wesley Ivan Hurt, Feb 01 2017
  • Mathematica
    RealDigits[2 Cos[Pi/7], 10, 111][[1]] (* Robert G. Wilson v, Jun 11 2013 *)
  • PARI
    default(realprecision, 20080); x=2*cos(Pi/7); for (n=1, 20000, d=floor(x); x=(x-d)*10; write("b160389.txt", n, " ", d));
    

Formula

Equals 2*A073052. - Michel Marcus, Nov 21 2013
Equals (Re((-(4*7)*(1 + 3*sqrt(3)*i))^(1/3)) + 1)/3, with the real part Re, and i = sqrt(-1). - Wolfdieter Lang, Feb 24 2015
Equals i^(2/7) - i^(12/7). - Peter Luschny, Apr 04 2020
From Peter Bala, Oct 20 2021: (Start)
Equals 2 - (1 - z)*(1 - z^6)/((1 - z^3)*(1 - z^4)), where z = exp(2*Pi*i/7).
The other two zeros of the minimal polynomial x^3 - x^2 - 2*x + 1 of 2*cos(Pi/7) are given by 2 - (1 - z^3)*(1 - z^4)/((1 - z^2)*(1 - z^5)) = 2*cos(3*Pi/7) = A255241 and 2 - (1 - z^2)*(1 - z^5)/((1 - z)*(1 - z^6)) = cos(5*Pi/7) = -A362922.
Equals Product_{n >= 0} (7*n+2)*(7*n+5)/((7*n+1)*(7*n+6)) = 1 + Product_{n >= 0} (7*n+2)*(7*n+5)/((7*n+3)*(7*n+4)) = 1/A255240.
The linear fractional mapping r -> 1/(1 - r) cyclically permutes the three zeros of the minimal polynomial x^3 - x^2 - 2*x + 1. The inverse mapping is r -> (r - 1)/r.
The quadratic mapping r -> 2 - r^2 also cyclically permutes the three zeros. The inverse mapping is r -> r^2 - r - 1. (End)
Equals i^(2/7) + i^(-2/7). - Gary W. Adamson, Feb 11 2022
From Amiram Eldar, Nov 22 2024: (Start)
Equals Product_{k>=1} (1 - (-1)^k/A047336(k)).
Equals 1 + cosec(3*Pi/14)/2 = 1 + Product_{k>=1} (1 + (-1)^k/A047341(k)). (End)
Equals sqrt(A116425). - Hugo Pfoertner, Nov 22 2024

A255249 Decimal expansion of -2*cos(5*Pi/7).

Original entry on oeis.org

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

Views

Author

Wolfdieter Lang, Mar 13 2015

Keywords

Comments

rho_3 := +2*cos(5*Pi/7) is the negative zero of the minimal polynomial C(7, x) = x^3 - x^2 - 2*x + 1 of the algebraic number rho(7) = 2*cos(Pi/7), the length ratio of the smaller diagonal and the side in the regular 7-gon (heptagon). See A187360 and a link to the arXiv paper given there, eq. (20) for the zeros of C(n, x). The positive zeros are rho(7) and rho_2 = 2*cos(3*Pi/7) shown in A160389 and A255241.
Essentially the same as A231187 and A116425. - R. J. Mathar, Mar 14 2015

Examples

			1.2469796037174670610500097680084796212645494617928042107310988781937073049...
		

References

  • John H. Conway and Richard K. Guy, The Book of Numbers, New York: Springer-Verlag, 1996. See p. 207.

Crossrefs

Cf. A047385, A160389, A187360, A255241, A330002, A330003 (Beatty sequences), A362922.

Programs

  • Mathematica
    r = x /. FindRoot[1/x + 1/(x+1)^2 == 1, {x, 2, 10}, WorkingPrecision -> 210]
    RealDigits[r][[1]]
    Plot[1/x + 1/(x+1)^2, {x, 1, 2}] (* Clark Kimberling, Jan 04 2020 *)
  • PARI
    polrootsreal(x^3 + x^2 - 2*x - 1)[3] \\ Charles R Greathouse IV, Oct 30 2023

Formula

2*cos(5*Pi/7) = - 2*sin(3*Pi/14) = -1.246979603...
Solution of x^3 + x^2 - 2 x - 1 = 0; +1.246979603... - Clark Kimberling, Jan 04 2020
Equals i^(4/7) - i^(10/7). - Peter Luschny, Apr 04 2020
From Peter Bala, Oct 20 2021: (Start)
Equals z + z^6, where z = exp(2*Pi*i/7), so this constant is one of the three cubic Gaussian periods for the modulus 7. The other periods are - A255241 and - A160389.
Equals (1 - z^2)*(1 - z^5)/((1 - z)*(1 - z^6)) - 2.
Equals Product_{n >= 0} (7*n+3)*(7*n+4)/((7*n+2)*(7*n+5)) = A231187 - 1. (End)
Equals Product_{k>=1} (1 - (-1)^k/A047385(k)). - Amiram Eldar, Nov 22 2024
Equals 1/(A160389-1) = 2*A362922. - Hugo Pfoertner, Nov 22 2024

A005021 Random walks (binomial transform of A006054).

Original entry on oeis.org

1, 5, 19, 66, 221, 728, 2380, 7753, 25213, 81927, 266110, 864201, 2806272, 9112264, 29587889, 96072133, 311945595, 1012883066, 3288813893, 10678716664, 34673583028, 112584429049, 365559363741, 1186963827439, 3854047383798, 12514013318097, 40632746115136
Offset: 0

Views

Author

Keywords

Comments

Number of walks of length 2n+5 in the path graph P_6 from one end to the other one. Example: a(1)=5 because in the path ABCDEF we have ABABCDEF, ABCBCDEF, ABCDCDEF, ABCDEDEF and ABCDEFEF. - Emeric Deutsch, Apr 02 2004
Since a(n) is the binomial transform of A006054 from formula (3.63) in the Witula-Slota-Warzynski paper, it follows that a(n)=A(n;1)*(B(n;-1)-C(n;-1))-B(n;1)*B(n;-1)+C(n;1)*(A(n;-1)-B(n;-1)+C(n;-1)), where A(n;1)=A077998(n), B(n;1)=A006054(n+1), C(n;1)=A006054(n), A(n;-1)=A121449(n), B(n+1;-1)=-A085810(n+1), C(n;-1)=A215404(n) and A(n;d), B(n;d), C(n;d), n in N, d in C, denote the quasi-Fibonacci numbers defined and discussed in comments in A121449 and in the cited paper. - Roman Witula, Aug 09 2012
From Wolfdieter Lang, Mar 30 2020: (Start)
With offset -4 this sequence 6, 1, 0, 0, 1, 5, ... appears in the formula for the n-th power of the 3 X 3 tridiagonal Matrix M_3 = Matrix([1,1,0], [1,2,1], [0,1,2]) from A332602: (M_3)^n = a(n-2)*(M_3)^2 - (6*a(n-3) - a(n-4))*M_3 + a(n-3)*1_3, with the 3 X 3 unit matrix 1_3, for n >= 0. Proof from Cayley-Hamilton: (M_3)^n = 5*(M_3)^3 - 6*M_3 + 1_3 (see A332602 for the characteristic polynomial Phi(3, x)), and the recurrence (M_3)^n = M_3*(M_3)^(n-1). For (M_3)^n[1,1] = 2*a(n-2) - 5*a(n-3) + a(n-4), for n >= 0, see A080937(n).
The formula for a(n) in terms of r = rho(7) = A160389 given below shows that a(n)/a(n-1) converges to rho(7)^2 = A116425 = 3.2469796... for n -> infinity. This is because r - 2/r = 0.692..., and r - 1 - 1/r = 0.137... .
(End)

References

  • W. Feller, An Introduction to Probability Theory and its Applications, 3rd ed, Wiley, New York, 1968, p. 96.
  • N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Crossrefs

Double partial sums of A060557. Bisection of A052547.

Programs

  • Magma
    I:=[1,5,19]; [n le 3 select I[n] else 5*Self(n-1)-6*Self(n-2)+Self(n-3): n in [1..30]]; // Vincenzo Librandi, Sep 18 2015
    
  • Maple
    a:=k->sum(binomial(5+2*k,7*j+k-2),j=ceil((2-k)/7)..floor((7+k)/7))-sum(binomial(5+2*k,7*j+k-1),j=ceil((1-k)/7)..floor((6+k)/7)): seq(a(k),k=0..25);
    A005021:=-(z-1)*(z-5)/(-1+5*z-6*z**2+z**3); # conjectured by Simon Plouffe in his 1992 dissertation; gives sequence apart from the initial 1
  • Mathematica
    LinearRecurrence[{5,-6,1}, {1,5,19}, 50] (* Roman Witula, Aug 09 2012 *)
    CoefficientList[Series[1/(1 - 5 x + 6 x^2 - x^3), {x, 0, 40}], x] (* Vincenzo Librandi, Sep 18 2015 *)
  • PARI
    x='x+O('x^30); Vec(1/(1-5*x+6*x^2-x^3)) \\ G. C. Greubel, Apr 19 2018

Formula

G.f.: 1/(1-5x+6x^2-x^3). - Emeric Deutsch, Apr 02 2004
a(n) = 5*a(n-1) -6*a(n-2) +a(n-3). - Emeric Deutsch, Apr 02 2004
a(n) = Sum_{j=-infinity..infinity} (binomial(5+2*k, 7*j+k-2) - binomial(5+2*k, 7*j+k-1)) (a finite sum).
a(n-2) = 2^n*C(n;1/2)=(1/7)*((c(2)-c(4))*(c(4))^(2n) + (c(4)-c(1))*(c(1))^(2n) + (c(1)-c(2))*(c(2))^(2n)), where a(-2)=a(-1):=0, c(j):=2*cos(2Pi*j/7). This formula follows from the Binet formula for C(n;d)--one of the quasi-Fibonacci numbers (see comments in A121449 and the formula (3.17) in the Witula-Slota-Warzynski paper). - Roman Witula, Aug 09 2012
In terms of the algebraic number r = rho(7) = 2*cos(Pi/7) = A160389 of degree 3 the preceding formula gives a(n) = r^(2*(n+2))*(A1(r) + A2(r)*(r - 2/r)^(2*(n+1)) = A3(r)*(r - 1 - 1/r)^(2*(n+1)))/7, for n >= -4 (see a comment above for this offset), with A1(r) = -r^2 + 2*r + 1, A2(r) = -r^2 - r + 2, and A3(r) = 2*r^2 - r - 3. - Wolfdieter Lang, Mar 30 2020

Extensions

a(25)-a(26) from Vincenzo Librandi, Sep 18 2015

A080937 Number of Catalan paths (nonnegative, starting and ending at 0, step +/-1) of 2*n steps with all values <= 5.

Original entry on oeis.org

1, 1, 2, 5, 14, 42, 131, 417, 1341, 4334, 14041, 45542, 147798, 479779, 1557649, 5057369, 16420730, 53317085, 173118414, 562110290, 1825158051, 5926246929, 19242396629, 62479659622, 202870165265, 658715265222, 2138834994142, 6944753544643, 22549473023585
Offset: 0

Views

Author

Henry Bottomley, Feb 25 2003

Keywords

Comments

With interpolated zeros (1,0,1,0,2,...), counts closed walks of length n at start or end node of P_6. The sequence (0,1,0,2,...) counts walks of length n between the start and second node. - Paul Barry, Jan 26 2005
HANKEL transform of sequence and the sequence omitting a(0) is the sequence A130716. This is the unique sequence with that property. - Michael Somos, May 04 2012
From Wolfdieter Lang, Mar 30 2020: (Start)
a(n) is also the upper left entry of the n-th power of the 3 X 3 tridiagonal matrix M_3 = Matrix([1,1,0], [1,2,1], [0,1,2]) from A332602: a(n) = ((M_3)^n)[1,1].
Proof: (M_3)^n = b(n-2)*(M_3)^2 - (6*b(n-3) - b(n-4))*M_3 + b(n-3)*1_3, for n >= 0, with b(n) = A005021(n), for n >= -4. For the proof of this see a comment in A005021. Hence (M_3)^n[1,1] = 2*b(n-2) - 5*b(n-3) + b(n-4), for n >= 0. This proves the 3 X 3 part of the conjecture in A332602 by Gary W. Adamson.
The formula for a(n) given below in terms of r = rho(7) = A160389 proves that a(n)/a(n-1) converges to rho(7)^2 = A116425 = 3.2469796..., because r - 2/r = 0.6920... < 1, and r^2 - 3 = 0.2469... < 1. This limit was conjectured in A332602 by Gary W. Adamson.
(End)

Examples

			G.f. = 1 + x + 2*x^2 + 5*x^3 + 14*x^4 + 42*x^5 + 131*x^6 + 417*x^7 + 1341*x^8 + ...
		

Crossrefs

Cf. A033191 which essentially provide the same sequence for different limits and tend to A000108.

Programs

  • Magma
    I:=[1,1,2]; [n le 3 select I[n] else 5*Self(n-1)-6*Self(n-2)+Self(n-3): n in [1..30]]; // Vincenzo Librandi, Jan 09 2016
  • Maple
    a:= n-> (<<0|1|0>, <0|0|1>, <1|-6|5>>^n. <<1, 1, 2>>)[1, 1]:
    seq(a(n), n=0..35);  # Alois P. Heinz, Nov 09 2012
  • Mathematica
    nn=56;Select[CoefficientList[Series[(1-4x^2+3x^4)/(1-5x^2+6x^4-x^6), {x,0,nn}], x],#>0 &] (* Geoffrey Critzer, Jan 26 2014 *)
    LinearRecurrence[{5,-6,1},{1,1,2},30] (* Jean-François Alcover, Jan 09 2016 *)
  • PARI
    a=vector(99); a[1]=1; a[2]=2;a[3]=5; for(n=4,#a,a[n]=5*a[n-1]-6*a[n-2] +a[n-3]); a \\ Charles R Greathouse IV, Jun 10 2011
    
  • PARI
    {a(n) = if( n<0, n = -n; polcoeff( (1 - 3*x + x^2) / (1 - 6*x + 5*x^2 - x^3) + x * O(x^n), n), polcoeff( (1 - 4*x + 3*x^2) / (1 - 5*x + 6*x^2 - x^3) + x * O(x^n), n))} /* Michael Somos, May 04 2012 */
    

Formula

a(n) = A080934(n,5).
G.f.: (1-4*x+3*x^2)/(1-5*x+6*x^2-x^3). - Ralf Stephan, May 13 2003
a(n) = 5*a(n-1) - 6*a(n-2) + a(n-3). - Herbert Kociemba, Jun 11 2004
a(n) = A096976(2*n). - Floor van Lamoen, Nov 02 2005
a(n) = (4/7-4/7*cos(1/7*Pi)^2)*(4*(cos(Pi/7))^2)^n + (1/7-2/7*cos(1/7*Pi) + 4/7*cos(1/7*Pi)^2)*(4*(cos(2*Pi/7))^2)^n + (2/7+2/7*cos(1/7*Pi))*(4*(cos(3*Pi/7))^2)^n for n>=0. - Richard Choulet, Apr 19 2010
G.f.: 1 / (1 - x / (1 - x / (1 - x / (1 - x / (1 - x))))). - Michael Somos, May 04 2012
a(-n) = A038213(n). a(n + 2) * a(n) - a(n + 1)^2 = a(1 - n). Convolution inverse is A123183 with A123183(0)=1. - Michael Somos, May 04 2012
From Wolfdieter Lang, Mar 30 2020: (Start)
In terms of the algebraic number r = rho(7) = A160389 of degree 3 the formula given by Richard Choulet becomes a(n) = (1/7)*(r)^(2*n)*(C1(r) + C2(r)*(r - 2/r)^(2*n) + C3(r)*(r^2 - 3)^(2*n)), with C1(r) = 4 - r^2, C2(r) = 1 - r + r^2, and C3 = 2 + r.
a(n) = ((M_3)^n)[1,1] = 2*b(n-2) - 5*b(n-3) + b(n-4), for n >= 0, with the 3 X 3 tridiagonal matrix M_3 = Matrix([1,1,0], [1,2,1], [0,1,2]) from A332602, and b(n) = A005021(n) (with offset n >= -4). (End)

A255240 Decimal expansion of 1/(2*cos(Pi/7)).

Original entry on oeis.org

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

Views

Author

Wolfdieter Lang, Mar 12 2015

Keywords

Comments

This is the decimal expansion of t = 1/rho(7) = 2 + rho(7) - rho(7)^2 with rho(7) = 2*cos(Pi/7) the length ratio of the smaller diagonal and the side of a regular heptagon. See A160389 for the decimal expansion of rho(7).
t satisfies the cubic equation t^3 - 2*t^2 - t + 1 = 0.
t = 1/rho(7) is the slope tan(alpha) appearing in Archimedes's neusis construction of the regular heptagon. The corresponding angle alpha is approximately 29,028 degrees. See the link, Figure 1, also for references.
From Peter Bala, Oct 16 2021: (Start)
t = sin(Pi/7)/sin(2*Pi/7). The other roots of the cubic equation t^3 - 2*t^2 - t + 1 = 0 are t_1 = 1/(1 - t) = sin(3*Pi/7)/sin(6*Pi/7) = 2.2469796037... and t_2 = 1/(1 - t_1) = - sin(2*Pi/7)/sin(4*Pi/7) = - 0.8019377358.... Compare with A231187 and A160389.
The algebraic number field Q(t) is a totally real cubic field of discriminant 7^2 and class number 1 with a cyclic Galois group over Q of order 3. See Shanks. (End)

Examples

			0.5549581320873711914221948710064104810672888624709100893760259682051575359...
		

Crossrefs

Programs

  • Mathematica
    RealDigits[1/(2*Cos[Pi/7]), 10, 100][[1]] (* Georg Fischer, Apr 04 2020 *)

Formula

1/rho(7) = 1/(2*cos(Pi/7)) = 0.55495813208...
From Peter Bala, Oct 10 2021: (Start)
t = 2*(cos(Pi/7) - cos(2*Pi/7)); t_1 = 2*(cos(3*Pi/7) - cos(6*Pi/7)); t_2 = 2*(cos(5*Pi/7) - cos(10*Pi/7)).
t = Product_{n >= 0} (7*n+1)*(7*n+6)/((7*n+2)*(7*n+5)) = 1 - Product_{n >= 0} (7*n+1)*(7*n+6)/((7*n+3)*(7*n+4)) = 1 - A255241. (End)
Equals Product_{k>=1} (1 + (-1)^k/A047385(k)). - Amiram Eldar, Nov 22 2024

Extensions

Name corrected by Georg Fischer, Apr 04 2020

A296184 Decimal expansion of 2 + phi, with the golden section phi from A001622.

Original entry on oeis.org

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

Views

Author

Wolfdieter Lang, Jan 08 2018

Keywords

Comments

In a regular pentagon, inscribed in a unit circle this equals twice the largest distance between a vertex and a midpoint of a side.
This is an integer in the quadratic number field Q(sqrt(5)).
Only the first digit differs from A001622.

Examples

			3.618033988749894848204586834365638117720309179805762862135448622705260462...
		

References

  • Steven R. Finch, Mathematical Constants, Encyclopedia of Mathematics and its Applications, vol. 94, Cambridge University Press, 2003, Section 5.25, p. 417.

Crossrefs

2 + 2*cos(2*Pi/n): A104457 (n = 5), A116425 (n = 7), A332438 (n = 9), A019973 (n = 12).

Programs

Formula

Equals 2 + A001622 = 1 + A104457 = 3 + A094214.
From Christian Katzmann, Mar 19 2018: (Start)
Equals Sum_{n>=0} (15*(2*n)!+40*n!^2)/(2*n!^2*3^(2*n+2)).
Equals 5/2 + Sum_{n>=0} 5*(2*n)!/(2*n!^2*3^(2*n+1)). (End)
Constant c = 2 + 2*cos(2*Pi/10). The linear fractional transformation z -> c - c/z has order 10, that is, z = c - c/(c - c/(c - c/(c - c/(c - c/(c - c/(c - c/(c - c/(c - c/(c - c/(z)))))))))). - Peter Bala, May 09 2024

A240671 a(n) = floor(4^n/(2+2*cos(2*Pi/7))^n).

Original entry on oeis.org

1, 1, 1, 1, 2, 2, 3, 4, 5, 6, 8, 9, 12, 15, 18, 22, 28, 34, 42, 52, 64, 79, 98, 121, 149, 183, 226, 279, 343, 423, 521, 642, 791, 975, 1201, 1480, 1823, 2246, 2767, 3409, 4199, 5173, 6373, 7851, 9672, 11915, 14679, 18083
Offset: 0

Views

Author

Kival Ngaokrajang, Apr 10 2014

Keywords

Comments

a(n) is the perimeter (rounded down) of a heptaflake after n iterations, let a(0) = 1. The total number of sides is 7*A000302(n). The total number of holes is A023000(n).

Crossrefs

Cf. A000302, A023000, A116425, A240523 (pentaflake), A240572 (octaflake).

Programs

  • Maple
    A240671:=n->floor(4^n/(2+2*cos(2*Pi/7))^n); seq(A240671(n), n=0..50); # Wesley Ivan Hurt, Apr 10 2014
  • Mathematica
    Table[Floor[4^n/(2 + 2*Cos[2*Pi/7])^n], {n, 0, 50}] (* Wesley Ivan Hurt, Apr 10 2014 *)
  • PARI
    {a(n)=floor(4^n/(2+2*cos(2*Pi/7))^n)}
           for (n=0, 100, print1(a(n), ", "))

Formula

a(n) = floor(4^n/A116425(n)^n).

A332438 Decimal expansion of (2*cos(Pi/9))^2 = A332437^2.

Original entry on oeis.org

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

Views

Author

Wolfdieter Lang, Mar 31 2020

Keywords

Comments

This algebraic number rho(9)^2 of degree 3 is a root of its minimal polynomial x^3 - 6*x^2 + 9*x - 1.
The other two roots are x2 = (2*cos(5*Pi/9))^2 = (2*cos(4*Pi/9))^2 = (R(4,rho(9)))^2 = 2 - rho(9) = 0.120614758..., and x3 = (2*cos(7*Pi/9))^2 = (2*cos(7*Pi/9))^2 = (R(7,rho(9)))^2 = 4 + rho(9) - rho(9)^2 = 2.347296355... = A130880 + 2, with rho(9) = 2*cos(Pi/9) = A332437, the monic Chebyshev polynomials R (see A127672), and the computation is done modulo the minimal polynomial of rho(9) which is x^3 - 3*x - 1 (see A187360).
This gives the representation of these roots in the power basis of the simple field extension Q(rho(9)). See the linked W. Lang paper in A187360, sect. 4.
This number rho(9)^2 appears as limit of the quotient of consecutive numbers af various sequences, e.g., A094256 and A094829.
The algebraic number rho(9)^2 - 2 = 1.532088898... of Q(rho(9)) has minimal polynomial x^3 - 3*x + 1 over Q. The other roots are -rho(9) = -A332437 and 2 + rho(9) - rho(9)^2 = A130880. - Wolfdieter Lang, Sep 20 2022

Examples

			3.5320888862379560704047853011108333478716649...
		

Crossrefs

2 + 2*cos(2*Pi/n): A104457 (n = 5), A116425 (n = 7), A296184 (n = 10), A019973 (n = 12).

Programs

  • Mathematica
    RealDigits[(2*Cos[Pi/9])^2, 10, 100][[1]] (* Amiram Eldar, Mar 31 2020 *)
  • PARI
    (2*cos(Pi/9))^2 \\ Michel Marcus, Sep 23 2022

Formula

Equals (2*cos(Pi/9))^2 = rho(9)^2 = A332437^2.
Equals 2 + i^(4/9) - i^(14/9). - Peter Luschny, Apr 04 2020
Equals 2 + w1^(1/3) + w2^(1/3), where w1 = (-1 + sqrt(3)*i)/2 = exp(2*Pi*i/3) and w2 = (-1 - sqrt(3)*i)/2 are the complex roots of x^3 - 1. - Wolfdieter Lang, Sep 20 2022
Constant c = 2 + 2*cos(2*Pi/9). The linear fractional transformation z -> c - c/z has order 9, that is, z = c - c/(c - c/(c - c/(c - c/(c - c/(c - c/(c - c/(c - c/(c - c/(z))))))))). - Peter Bala, May 09 2024
From Amiram Eldar, Nov 22 2024: (Start)
Equals 3 + sec(Pi/9)/2 = 3 + 1/(2*A019879).
Equals 3 + Product_{k>=3} (1 + (-1)^k/A063289(k)). (End)

A231187 Decimal expansion of the length ratio (largest diagonal)/side in the regular 7-gon (or heptagon).

Original entry on oeis.org

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

Views

Author

Wolfdieter Lang, Nov 21 2013

Keywords

Comments

The length ratio (largest diagonal)/side in the regular 7-gon (heptagon) is sigma(7) = S(2, rho(7)) = -1 + rho(7)^2, with rho(7) = 2*cos(Pi/7), which is approx. 1.8019377358 (see A160389 for its decimal expansion, and A049310 for the Chebyshev S-polynomials). sigma(7), approx. 2.2469796, is also the reciprocal of one of the solutions of the minimal polynomial C(7, x) = x^3 - x^2 - 2*x + 1 of rho(7) (see A187360), namely 1/(2*cos(3*Pi/7)).
sigma(7) is the limit of a(n+1)/a(n) for n->infinity for the sequences A006054 and A077998 which can be considered as analogs of the Fibonacci sequence in the pentagon. Thus sigma(7) plays in the heptagon the role of the golden section in the pentagon.
See the Steinbach link.

Examples

			2.24697960371746706105000976800847962126454946179280421073109887819...
		

Crossrefs

Programs

Formula

sigma(7) = -1 + (2*cos(Pi/7))^2 = 1/(2*cos(3*Pi/7)).
Equals A116425 -1.
From Geoffrey Caveney, Apr 23 2014: (Start)
sigma(7) = exp(asinh(cos(Pi/7))).
cos(Pi/7) + sqrt(1+cos(Pi/7)^2). (End)
From Peter Bala, Oct 12 2021: (Start)
Minimal polynomial x^3 - 2*x^2 - x + 1.
Equals 2*(cos(3*Pi/7) - cos(6*Pi/7)). The other zeros of the minimal polynomial are 2*(cos(Pi/7) - cos(2*Pi/7)) = A255240 and 2*(cos(5*Pi/7) - cos(10*Pi/7)) = 1 - A160389.
The quadratic mapping z -> z^2 - 2*z cyclically permutes the zeros of the minimal polynomial. The inverse cyclic permutation is given by the mapping z -> 2 + z - z^2.
Equals Product_{n >= 0} (7*n+3)*(7*n+4)/((7*n+1)*(7*n+6)) = 1 + Product_{n >= 0} (7*n+3)*(7*n+4)/((7*n+2)*(7*n+5)) = 1 + A255249 = 1/A255241. (End)
Equals 1/(2*sin(Pi/14)) = 1 + 2*sin(3*Pi/14). - Gary W. Adamson, Jun 25 2022
Equals (2*cos(Pi/7)) * (2*cos(2*Pi/7)) = (i^(2/7) + i^(-2/7)) * (i^(4/7) + i^(-4/7)) = 1 + i^(4/7) + i^(-4/7). - Gary W. Adamson, Jul 16 2022
Equals 2F1(1/7,2/7;1/2;1) [Zucker] - R. J. Mathar, Jun 24 2024
Showing 1-10 of 11 results. Next