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

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)

A056020 Numbers that are congruent to +-1 mod 9.

Original entry on oeis.org

1, 8, 10, 17, 19, 26, 28, 35, 37, 44, 46, 53, 55, 62, 64, 71, 73, 80, 82, 89, 91, 98, 100, 107, 109, 116, 118, 125, 127, 134, 136, 143, 145, 152, 154, 161, 163, 170, 172, 179, 181, 188, 190, 197, 199, 206, 208, 215, 217, 224, 226, 233, 235, 242, 244, 251, 253
Offset: 1

Views

Author

Robert G. Wilson v, Jun 08 2000

Keywords

Comments

Or, numbers k such that k^2 == 1 (mod 9).
Or, numbers k such that the iterative cycle j -> sum of digits of j^2 when started at k contains a 1. E.g., 8 -> 6+4 = 10 -> 1+0+0 = 1 and 17 -> 2+8+9 = 19 -> 3+6+1 = 10 -> 1+0+0 = 1. - Asher Auel, May 17 2001

Crossrefs

Cf. A007953, A047522 (n=1 or 7 mod 8), A090771 (n=1 or 9 mod 10).
Cf. A129805 (primes), A195042 (partial sums).
Cf. A381319 (general case mod n^2).

Programs

  • Haskell
    a056020 n = a056020_list !! (n-1)
    a05602_list = 1 : 8 : map (+ 9) a056020_list
    -- Reinhard Zumkeller, Jan 07 2012
  • Mathematica
    Select[ Range[ 300 ], PowerMod[ #, 2, 3^2 ]==1& ]
    (* or *)
    LinearRecurrence[{1, 1, -1}, {1, 8, 10}, 67] (* Mike Sheppard, Feb 18 2025 *)
  • PARI
    a(n)=9*(n>>1)+if(n%2,1,-1) \\ Charles R Greathouse IV, Jun 29 2011
    
  • PARI
    for(n=1,40,print1(9*n-8,", ",9*n-1,", ")) \\ Charles R Greathouse IV, Jun 29 2011
    

Formula

a(1) = 1; a(n) = 9(n-1) - a(n-1). - Rolf Pleisch, Jan 31 2008 [Offset corrected by Jon E. Schoenfield, Dec 22 2008]
From R. J. Mathar, Feb 10 2008: (Start)
O.g.f.: 1 + 5/(4(x+1)) + 27/(4(-1+x)) + 9/(2(-1+x)^2).
a(n+1) - a(n) = A010697(n). (End)
a(n) = (9*A132355(n) + 1)^(1/2). - Gary Detlefs, Feb 22 2010
From Bruno Berselli, Nov 17 2010: (Start)
a(n) = a(n-2) + 9, for n > 2.
a(n) = 9*A000217(n-1) + 1 - 2*Sum_{i=1..n-1} a(i), n > 1. (End)
Sum_{n>=1} (-1)^(n+1)/a(n) = (Pi/9)*cot(Pi/9) = A019676 * A019968. - Amiram Eldar, Dec 04 2021
E.g.f.: 1 + ((18*x - 9)*exp(x) + 5*exp(-x))/4. - David Lovler, Sep 04 2022
From Amiram Eldar, Nov 22 2024: (Start)
Product_{n>=1} (1 - (-1)^n/a(n)) = 2*cos(Pi/9) (A332437).
Product_{n>=2} (1 + (-1)^n/a(n)) = (Pi/9)*cosec(Pi/9). (End)
From Mike Sheppard, Feb 18 2025: (Start)
a(n) = a(n-1) + a(n-2) - a(n-3).
a(n) ~ (3^2/2)*n. (End)

A019879 Decimal expansion of sine of 70 degrees.

Original entry on oeis.org

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

Views

Author

Keywords

Comments

It is well known that the length sin 70° (cos 20°) is not constructible with ruler and compass, since it is a root of the irreducible polynomial 8x^3 - 6x - 1 and 3 fails to divide any power of 2. - Jean-François Alcover, Aug 10 2014 [cf. the Maxfield ref.]
A cubic number with denominator 2. - Charles R Greathouse IV, Aug 27 2017
From Peter Bala, Oct 21 2021: (Start)
The minimal polynomial of cos(Pi/9) is 8*x^3 - 6*x - 1 with discriminant (2^6)*(3^4), a square: hence the Galois group of the algebraic number field Q(sin(70°) over Q is the cyclic group of order 3.
The two other zeros of the minimal polynomial are cos(5*Pi/9) = - A019819 and cos(7*Pi/9) = - A019859. The mapping z -> 1 - 2*z^2 cyclically permutes the three zeros. The inverse permutation is given by the mapping z -> 2*z^2 - z - 1. (End)

Examples

			0.93969262...
		

References

  • J. E. Maxfield and M. W. Maxfield, Abstract Algebra and Solution by Radicals, Dover Publications ISBN 0-486-67121-6, (1992), p. 197.

Crossrefs

Programs

Formula

Equals 2*A019844*A019864. - R. J. Mathar, Jan 17 2021
Equals cos(Pi/9) = (1/2)*A332437. - Peter Bala, Oct 21 2021
Equals 2F1(-1/6,1/6 ; 1/2; 3/4). - R. J. Mathar, Aug 31 2025

A130880 Decimal expansion of 2*sin(Pi/18).

Original entry on oeis.org

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

Views

Author

R. J. Mathar, Jul 26 2007

Keywords

Comments

Also: a bond percolation threshold probability on the triangular lattice.
Also: the edge length of a regular 18-gon with unit circumradius. Such an m-gon is not constructible using a compass and a straightedge (see A004169). With an even m, in fact, it would be constructible only if the (m/2)-gon were constructible, which is not true in this case (see A272488). - Stanislav Sykora, May 01 2016

Examples

			0.347296355333860697703433253538629592...
		

References

  • John H. Conway and Richard K. Guy, The Book of Numbers, New York: Springer-Verlag, 1996. See p. 207.
  • Steven R. Finch, Mathematical Constants, Encyclopedia of Mathematics and its Applications, vol. 94, Cambridge University Press, 2003, Section 5.18.1, p. 373.

Crossrefs

Edge lengths of nonconstructible n-gons: A272487 (n=7), A272488 (n=9), A272489 (n=11), A272490 (n=13), A255241 (n=14), A272491 (n=19). - Stanislav Sykora, May 01 2016

Programs

  • Mathematica
    RealDigits[N[2Sin[Pi/18], 100]][[1]] (* Robert Price, May 01 2016 *)
  • PARI
    2*sin(Pi/18)

Formula

Equals 2*A019819 = A019829/A019889.
Algebraic number with minimal polynomial over Q equal to x^3 - 3*x + 1, a cyclic cubic, having zeros 2*sin(Pi/18) (= 2*cos(4*Pi/9)), 2*sin(5*Pi/18) (= 2*cos(2*Pi/9)) and -2*sin(7*Pi/18) (= -2*cos(Pi/9)). Cf. A332437. - Peter Bala, Oct 23 2021
Equals 2 + rho(9) - rho(9)^2, an element of the extension field Q(rho(9)), with rho(9) = 2*cos(Pi/9) = A332437 with minimal polynomial x^3 - 3*x - 1 over Q. - Wolfdieter Lang, Sep 20 2022
Equals -1 + Product_{k>=3} (1 - (-1)^k/A063289(k)). - Amiram Eldar, Nov 22 2024
Equals A133749/2 = 1 - A178959. - Hugo Pfoertner, Dec 15 2024

A094829 Number of (s(0), s(1), ..., s(2n+1)) such that 0 < s(i) < 9 and |s(i) - s(i-1)| = 1 for i = 1,2,...,2n+1, s(0) = 1, s(2n+1) = 6.

Original entry on oeis.org

1, 6, 27, 109, 417, 1548, 5644, 20349, 72846, 259579, 922209, 3269889, 11579032, 40967400, 144863001, 512050438, 1809503019, 6393427173, 22587086305, 79791176292, 281856708180, 995606748757, 3516721295214
Offset: 2

Views

Author

Herbert Kociemba, Jun 13 2004

Keywords

Comments

In general, a(n) = (2/m)*Sum_{r=1..m-1} sin(r*j*Pi/m)*sin(r*k*Pi/m)*(2*cos(r*Pi/m))^(2n+1) counts (s(0), s(1), ..., s(2n+1)) such that 0 < s(i) < m and |s(i)-s(i-1)| = 1 for i = 1,2,...,2n+1, s(0) = j, s(2n+1) = k.
a(n)/a(n-1) tends to 3.53208888...; = 2 + 2*cos(2*Pi/9) = A332438. - Gary W. Adamson, May 29 2008
From Wolfdieter Lang, Mar 27 2020: (Start)
The explicit form is written in terms of r = rho(9) = 2*cos(Pi/9) = A332437 as a Binet - de Moivre type formula a(n+2) = r^(2*(n+1))*(A(r) + Bp(r)*Cp(r)^(n+1)) + Bm(r)*Cm(r)^(n+1)), with A(r) = (1/9)*(2 + 5*r -r^2), approx. 0.87387081, Bp(r) = (1/18)*((14*r^2 - 5*r - 42)*sqrt(3*(3*r + 1)*(r - 1)) + r^2 - 5*r - 2) = (1/9)*(8 - r - 4*r^2), approx. -0.88974898, Cp(r) = (1/2)*(9*r^2 - 3*r - 26)*(3*r - 1 + sqrt(3*(3*r+1)*(r-1))) = 32 + 4*r - 11*r^2, approx. 0.66456322, Bm(r) = (1/18)*(-(14*r^2 - 5*r - 42)*sqrt(3*(3*r + 1)*(r - 1)) + r^2 - 5*r - 2) = (1/9)*(-10 -4*r + 5*r^2), approx. 0.01587816, and Cm(r) = (1/2)*(9*r^2 - 3*r - 26)*(3*r - 1 - sqrt(3*(3*r + 1)*(r - 1))) = 21 + 2*r - 7*r^2, approx. 0.03414828, for n >= 0.
Proof by partial fraction decomposition of the g.f. using the roots of 1 - 6*x + 9*x^2 - x^3 written in terms of r, which are X1(r) = 1/r^2 = 9 + r - 3*r^2, approx. 0.28311858, Xp(r) = (r/2)*(3*r - 1 + sqrt((3*(3*r+1))*(r-1))) = 1 + 2*r + r^2, approx. 8.29085937, Xm(r) = (r/2)*(3*r - 1 - sqrt((3*(3*r + 1))*(r - 1))) = -1 - 3*r + 2*r^2, approx. 0.42602205. Xp(r)*Xm(r) = r^2. The reduction with the minimal polynomial of r = rho(9), i.e., C(9, x) = x^3 - 3*x - 1 (see A187360) has been used to avoid all powers of r larger than 2. The reciprocal roots turn out to be the roots of the minimal polynomial of r^2, see A332438. 1/X1(r) = r^2, 1/Xp(r) = 2 - r, and 1/Xm(r) = 4 + r - r^2.
This proves the above stated limit of a(n+3)/a(n+2) for n to infinity, namely r^2 = A332438, approx. 3.53208889.
(End)

Crossrefs

Programs

  • Mathematica
    Drop[CoefficientList[Series[x^2/(1 - 6 x + 9 x^2 - x^3), {x, 0, 24}], x], 2] (* Michael De Vlieger, Aug 05 2021 *)

Formula

a(n) = (2/9)*Sum_{r=1..8} sin(r*Pi/9)*sin(2*r*Pi/3)*(2*cos(r*Pi/9))^(2*n+1), for n >= 2.
a(n) = 6*a(n-1) - 9*a(n-2) + a(n-3).
G.f.: x^2/(1 - 6x + 9x^2 - x^3).
For the explicit form of a(n+2), for n >= 0, see a comment above. - Wolfdieter Lang, Mar 26 2020

A094256 Expansion of x / ( (x-1)*(x^3 - 9*x^2 + 6*x - 1) ).

Original entry on oeis.org

1, 7, 34, 143, 560, 2108, 7752, 28101, 100947, 360526, 1282735, 4552624, 16131656, 57099056, 201962057, 714012495, 2523515514, 8916942687, 31504028992, 111295205284, 393151913464, 1388758662221, 4905479957435, 17327203698086, 61202661233823, 216176614077600
Offset: 1

Views

Author

Gary W. Adamson, Apr 25 2004

Keywords

Comments

Previous name was: Let M = the 4 X 4 matrix [0 1 0 0 / 0 0 1 0 / 0 0 0 1 / -1 10 -15 7]. Perform M^n * [1 0 0 0] = [p q r s]. Then a(n-3), a(n-2), a(n-1), a(n) = -p, -q, -r, -s respectively.
a(n)/a(n-1) tends to 3.53208888624... = 4*cos^2(Pi/9), which is an eigenvalue of the matrix and a root of the polynomial x^4 - 6x^3 + 15x^2 -10x + 1 = 0 (having roots 4*cos^2(r*Pi/9), with r = 1,2,3,4).
Number of (s(0), s(1), ..., s(2n+4)) such that 0 < s(i) < 9 and |s(i) - s(i-1)| = 1 for i = 1,2,...,2n+4, s(0) = 1, s(2n+4) = 7. - Herbert Kociemba, Jun 13 2004
From Wolfdieter Lang, Mar 27 2020: (Start)
This sequence, with offset -5, starting with -85, -10, -1, 0, 0, 0, 1, 7, ... appears in the formula for the n-th power of the 4 X 4 tridiagonal matrix given in A332602 as M_4 = matrix([1,1,0,0], [1,2,1,0], [0,1,2,1], [0,0,1,2]): (M_4)^n = a(n-2)*(M_4)^3 + b(n)*(M_4)^2 + c(n)*M_4 - a(n-3)*1_4, for n >= 0, with the 4 X 4 unit Matrix 1_4, b(n) = -15*a(n-3) + 10*a(n-4) - a(n-5), and c(n) = 10*a(n-3) - a(n-4). Proof from the characteristc polynomial of M_4 (see a comment in A332602) and the Cayley-Hamilton theorem.
From the proof that A094829(n+3)/A094829(n+2) -> rho(9)^2 = A332438 for n-> infinitiy, with rho(9) = 2*cos(Pi/9) = A332437 (see a comment in A094829), and a formula given below the same limit is obtained for a(n+1)/a(n) for n -> infinity, as stated in a comment above. (End)

Examples

			a(2), a(3), a(4), a(5) = 7, 34, 143, 560, since M^5 * [1 0 0 0] = [ -7 -34 -143 -560].
Cayley-Hamilton: (M_4)^5 = a(3)*(M_4)^3 + b(5)*(M_4)^2 + c(5)*M_4 - a(2)*1_4 = 34*(M_4)^3 - 95*(M_4)^2 + 69*M_4 - 7*1_4. - _Wolfdieter Lang_, Mar 27 2020
		

References

  • C. V. Durell and A. Robson, "Advanced Trigonometry", Dover 2003, p. 216.

Crossrefs

a(n) = A005023(n-1), n > 1. - R. J. Mathar, Sep 05 2008

Programs

  • Magma
    I:=[1,7,34,143]; [n le 4 select I[n] else 7*Self(n-1) - 15*Self(n-2) + 10*Self(n-3) - Self(n-4): n in [1..30]]; // Vincenzo Librandi, Jul 25 2015
    
  • Mathematica
    Table[ (MatrixPower[{{0, 1, 0, 0}, {0, 0, 1, 0}, {0, 0, 0, 1}, {-1, 10, -15, 7}}, n].{-1, 0, 0, 0})[[4]], {n, 24}] (* Robert G. Wilson v, Apr 28 2004 *)
    LinearRecurrence[{7, -15, 10, -1}, {1, 7, 34, 143}, 40] (* Vincenzo Librandi, Jul 25 2015 *)
  • PARI
    Vec(x / ( (x-1)*(x^3-9*x^2+6*x-1) ) + O(x^30)) \\ Michel Marcus, Jul 25 2015

Formula

From Herbert Kociemba, Jun 13 2004: (Start)
a(n) = (2/9)*Sum_{r=1..8} sin(r*Pi/9)*sin(7*r*Pi/9)*(2*cos(r*Pi/9))^(2n+4).
a(n) = 7*a(n-1) - 15*a(n-2) + 10*a(n-3) - a(n-4).
G.f.: x / ( (x-1)*(x^3 - 9*x^2 + 6*x - 1) ). (End)
3*a(n) = 1 - A094829(n+2) + 8*A094829(n+1) - A094829(n). - R. J. Mathar, Jun 29 2012 [offset corrected, and A094829(1) = 0. - Wolfdieter Lang, Mar 27 2020]
a(n) = (1/3)*(1 + 2*A094829(n+1) + 8*A094829(n) - A094829(n-1)), for n >= 1, with A094829(1) and A094829(0) = 0. - Wolfdieter Lang, Mar 27 2020

Extensions

More terms from Robert G. Wilson v, Apr 28 2004
a(25)-a(26) from Vincenzo Librandi, Jul 25 2015
New name (using g.f. from Herbert Kociemba) from Joerg Arndt, Jul 25 2015

A080938 Number of Catalan paths (nonnegative, starting and ending at 0, step +-1) of 2*n steps with all values less than or equal to 7.

Original entry on oeis.org

1, 1, 2, 5, 14, 42, 132, 429, 1429, 4846, 16645, 57686, 201158, 704420, 2473785, 8704089, 30664890, 108126325, 381478030, 1346396146, 4753200932, 16783118309, 59266297613, 209302921830, 739203970773, 2610763825782, 9221050139566, 32568630376132
Offset: 0

Views

Author

Henry Bottomley, Feb 25 2003

Keywords

Comments

From Wolfdieter Lang, Mar 27 2020: (Start)
a(n) also gives the upper left entry of the n-th power of the 4 X 4 tridiagonal matrix M_4, given in A332602: M_4 = Matrix([1,1,0,0], [1,2,1,0], [0,1,2,1], [0,0,1,2]): a(n) = (M_4)^n[1,1]. Proof from the formula for (M_4)^n, given in a comment in A094256, derived from the Cayley-Hamilton theorem, which leads to the recurrence. The formula for a(n) in terms of A094256 is given below.
For A094256(n+1)/A094256(n), like for A094829(n+1)/A094829(n), the limit for n -> infinity is rho(9)^2 = A332438 = 3.53208888..., with rho(9) = 2*cos(Pi/9) = A332437. Therefore the formula of a(n) in terms of A094256 shows that the same limit is reached for a(n+1)/a(n). See this conjecture by Gary W. Adamson in A332602.
(End)

Examples

			1 + x + 2*x^2 + 5*x^3 + 14*x^4 + 42*x^5 + 132*x^6 + 429*x^7 + ...
		

Crossrefs

Cf. A000007, A000012, A011782, A001519, A007051, A080937, A024175, A033191 which essentially provide the same sequence for different limits and tend to A000108.
Cf. A211216, A094826 (first differences), A094829, A094829, A332602, A332437, A332438.

Programs

  • Magma
    I:=[1,1,2,5]; [n le 4 select I[n] else 7*Self(n-1)-15*Self(n-2)+10*Self(n-3)-Self(n-4): n in [1..30]]; // Vincenzo Librandi, Nov 30 2018
  • Mathematica
    CoefficientList[Series[(1 - 2 x) (2 x^2 - 4 x + 1) / ((x - 1) (x^3 - 9 x^2 + 6 x - 1)), {x, 0, 40}], x] (* Vincenzo Librandi, Nov 30 2018 *)
    LinearRecurrence[{7, -15, 10, -1}, {1, 1, 2, 5}, 30] (* Jean-François Alcover, Jan 07 2019 *)
  • PARI
    {a(n) = local(A); A = 1; for( i=1, 7, A = 1 / (1 - x*A)); polcoeff( A + x * O(x^n), n)} /* Michael Somos, May 12 2012 */
    

Formula

a(n) = A080934(n,7).
G.f.: -(2*x - 1)*(2*x^2 - 4*x + 1) / ( (x - 1)*(x^3 - 9*x^2 + 6*x - 1) ). - Ralf Stephan, May 13 2003
a(n) = 7*a(n-1) - 15*a(n-2) + 10*a(n-3) - a(n-4). - Herbert Kociemba, Jun 13 2004
G.f.: 1 / (1 - x / (1 - x / (1 - x / (1 - x / (1 - x / (1 - x / (1 - x))))))). - Michael Somos, May 12 2012
a(n) = 5*b(n-2) - 21*b(n-3) + 19*b(n-4) - 2*b(n-5), for n >= 0, with b(n) = A094256(n), for n >= -5. See a comment in A094256 for this offset, and the above comment. - Wolfdieter Lang, Mar 28 2020

A156638 Numbers k such that k^2 + 2 == 0 (mod 9).

Original entry on oeis.org

4, 5, 13, 14, 22, 23, 31, 32, 40, 41, 49, 50, 58, 59, 67, 68, 76, 77, 85, 86, 94, 95, 103, 104, 112, 113, 121, 122, 130, 131, 139, 140, 148, 149, 157, 158, 166, 167, 175, 176, 184, 185, 193, 194, 202, 203, 211, 212, 220, 221, 229, 230, 238, 239, 247, 248, 256
Offset: 1

Views

Author

Vincenzo Librandi, Feb 12 2009

Keywords

Comments

From Artur Jasinski, Apr 30 2010: (Start)
Numbers congruent to 4 or 5 mod 9.
Numbers which are not the sum of 3 cubes.
Complement to A060464. (End)
Numbers k such that A010888(k^2) = 7. - V.J. Pohjola, Aug 18 2012

References

  • Henri Cohen, Number Theory Volume I: Tools and Diophantine Equations. Springer Verlag (2007) p. 380. - Artur Jasinski, Apr 30 2010

Crossrefs

Programs

Formula

For n > 2, a(n) = a(n-2) + 9.
G.f.: x*(4*x^2 + x + 4)/(x^3 - x^2 - x + 1). - Alexander R. Povolotsky, Feb 15 2009
From R. J. Mathar, Feb 19 2009: (Start)
a(n) = a(n-1) + a(n-2) - a(n-3), n>3.
a(n) = 9*n/2 - 9/4 - 7*(-1)^n/4.
G.f.: x*(4 + x + 4*x^2)/((1 + x)*(1 - x)^2). (End)
a(n) = -a(-n+1). - Bruno Berselli, Jan 08 2012
E.g.f.: 4 + ((18*x - 9)*exp(x) - 7*exp(-x))/4. - David Lovler, Aug 21 2022
Sum_{n>=1} (-1)^(n+1)/a(n) = tan(Pi/18)*Pi/9. - Amiram Eldar, Sep 26 2022
From Amiram Eldar, Nov 22 2024: (Start)
Product_{n>=1} (1 - (-1)^n/a(n)) = 1.
Product_{n>=1} (1 + (-1)^n/a(n)) = 2*cos(Pi/9) - 1 (= A332437 - 1). (End)

A178959 Decimal expansion of the site percolation threshold for the (3,6,3,6) Kagome Archimedean lattice.

Original entry on oeis.org

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

Views

Author

Jonathan Vos Post, Dec 22 2012

Keywords

Comments

Consider an infinite graph where vertices are selected with probability p. The site percolation threshold is a unique value p_c such that if p > p_c an infinite connected component of selected vertices will almost surely exist, and if p < p_c an infinite connected component will almost surely not exist. This sequence gives p_c for the (3,6,3,6) Kagome Archimedean lattice.
This is one of the three real roots of x^3 - 3x^2 + 1. The other roots are 1 + A332437 = 2.879385241... and -(A332438 - 3) = - 0.5320888862... . - Wolfdieter Lang, Dec 13 2022

Examples

			0.652703644666139302296566746461370407999248645631861225527517243735868355...
		

Crossrefs

Programs

Formula

Equals 1 - 2*sin(Pi/18) = 1 = 1 - 2*cos(4*Pi/9) = 1 - A130880.

Extensions

a(98) corrected and more terms from Georg Fischer, Jun 06 2024

A337301 Triangle read by rows in which row n lists the closest integers to diagonal lengths of regular n-gon with unit edge length, n >= 4.

Original entry on oeis.org

1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 2, 2, 2, 3, 3, 3, 3, 2, 2, 3, 3, 3, 3, 3, 2, 2, 3, 3, 4, 4, 3, 3, 2, 2, 3, 3, 4, 4, 4, 3, 3, 2, 2, 3, 3, 4, 4, 4, 4, 3, 3, 2, 2, 3, 4, 4, 4, 4, 4, 4, 4, 3, 2, 2, 3, 4, 4, 5, 5, 5, 5, 4, 4, 3, 2, 2, 3, 4, 4, 5, 5, 5, 5, 5, 4, 4, 3, 2
Offset: 4

Views

Author

Mohammed Yaseen, Aug 22 2020

Keywords

Examples

			Triangle begins:
1;
2, 2;
2, 2, 2;
2, 2, 2, 2;
2, 2, 3, 2, 2;
2, 3, 3, 3, 3, 2;
2, 3, 3, 3, 3, 3, 2;
2, 3, 3, 4, 4, 3, 3, 2;
2, 3, 3, 4, 4, 4, 3, 3, 2;
2, 3, 3, 4, 4, 4, 4, 3, 3, 2;
2, 3, 4, 4, 4, 4, 4, 4, 4, 3, 2;
2, 3, 4, 4, 5, 5, 5, 5, 4, 4, 3, 2;
2, 3, 4, 4, 5, 5, 5, 5, 5, 4, 4, 3, 2;
...
Row n lists the closest integers to the length of the diagonals drawn from a fixed vertex of a regular n-gon with unit edge length, n >= 4.
The lengths of the diagonals drawn from vertex A of a regular 8-gon ABCDEFGH with unit edge length are:
AC = 1.84775...
AD = 2.41421...
AE = 2.61312...
AF = 2.41421...
AG = 1.84775...
So the row for n=8 is 2, 2, 3, 2, 2.
		

Crossrefs

Cf. A064313.
Decimal expansion of diagonal lengths of regular n-gons with unit edge length:
n=4 A002193.
n=5 A001622.
n=9 A332437.
n=11 A231186.

Programs

  • Mathematica
    T[n_,k_]:=Round[Sin[(k+1)*Pi/n]/Sin[Pi/n]]; Flatten[Table[T[n,k],{n,4,16},{k,1,n-3}]] (* Stefano Spezia, Sep 07 2020 *)

Formula

T(n,k) = round(sin((k+1)*Pi/n)/sin(Pi/n)), n >= 4, 1 <= k <= n-3.
Showing 1-10 of 11 results. Next