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 31-40 of 84 results. Next

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

A052931 Expansion of 1/(1 - 3*x^2 - x^3).

Original entry on oeis.org

1, 0, 3, 1, 9, 6, 28, 27, 90, 109, 297, 417, 1000, 1548, 3417, 5644, 11799, 20349, 41041, 72846, 143472, 259579, 503262, 922209, 1769365, 3269889, 6230304, 11579032, 21960801, 40967400, 77461435, 144863001, 273351705, 512050438, 964918116, 1809503019
Offset: 0

Views

Author

encyclopedia(AT)pommard.inria.fr, Jan 25 2000

Keywords

Comments

Let A be the tridiagonal unit-primitive matrix (see [Jeffery]) A = A_{9,1} = [0,1,0,0; 1,0,1,0; 0,1,0,1; 0,0,1,1]. Then a(n)=[A^n](2,3). - _L. Edson Jeffery, Mar 19 2011
From Wolfdieter Lang, Oct 02 2013: (Start)
This sequence a(n) appears in the formula for the nonnegative powers of the algebraic number rho(9) := 2*cos(Pi/9) of degree 3, the ratio of the smallest diagonal/side in the regular 9-gon, in terms of the power basis of the algebraic number field Q(rho(9)) (see A187360, n=9).
rho(9)^n = A(n)*1 + B(n)*rho(9) + C(n)*rho(9)^2, with A(0) = 1, A(1) = 0, A(n) = B(n-2), n >= 2, B(0) = 0, B(n) = a(n-1), n >= 1, C(0) = 0, C(n) = B(n-1), n >= 1. (End)

Examples

			From _Wolfdieter Lang_, Oct 02 2013: (Start)
In the 9-gon (enneagon), powers of rho(9) = 2*cos(pi/9):
rho(9)^5 = A(5)*1 + B(5)*rho(9) + C(5)*rho(9)^2, with A(5) = B(3) = a(2) = 3, B(5) = a(4) = 9 and C(5) = B(4) = a(3) = 1:
  rho(9)^5 = 3 + 9*rho(9) + rho(9)^2. (End)
		

Crossrefs

Cf. A214699.

Programs

  • GAP
    a:=[1,0,3];; for n in [4..40] do a[n]:=3*a[n-2]+a[n-3]; od; a; # G. C. Greubel, Oct 17 2019
  • Magma
    R:=PowerSeriesRing(Integers(), 40); Coefficients(R!( 1/(1-3*x^2-x^3) )); // G. C. Greubel, Oct 17 2019
    
  • Maple
    spec := [S,{S=Sequence(Prod(Z,Union(Z,Z,Z,Prod(Z,Z))))},unlabeled]: seq(combstruct[count](spec,size=n), n=0..20);
    seq(coeff(series(1/(1-3*x^2-x^3), x, n+1), x, n), n = 0..40); # G. C. Greubel, Oct 17 2019
  • Mathematica
    CoefficientList[Series[1/(1-3x^2-x^3),{x,0,40}],x] (* or *) LinearRecurrence[{0,3,1},{1,0,3},40] (* Vladimir Joseph Stephan Orlovsky, Jan 28 2012 *)
  • PARI
    x='x+O('x^40); Vec(1/(1-3*x^2-x^3)) \\ Altug Alkan, Feb 20 2018
    
  • Sage
    def A052931_list(prec):
        P. = PowerSeriesRing(ZZ, prec)
        return P(1/(1-3*x^2-x^3)).list()
    A052931_list(40) # G. C. Greubel, Oct 17 2019
    

Formula

G.f.: 1/(1-3*x^2-x^3).
a(n) = 3*a(n-2) + a(n-3), with a(0)=1, a(1)=0, a(2)=3.
a(n) = Sum_{alpha=RootOf(-1+3*z^2+z^3)} (1/9)*(-1 +5*alpha +2*alpha^2) * alpha^(-1-n).
a(n) = Sum_{k=0..floor(n/2)} binomial(k, n-2k)3^(3k-n). - Paul Barry, Oct 04 2004
a(n) = A187497(3*(n+1)). - L. Edson Jeffery, Mar 19 2011.
3*a(n) = abs(A214699(n+1)). - Roman Witula, Oct 06 2012

Extensions

More terms from James Sellers, Jun 06 2000

A302711 Decimal expansion of 2*sin(15*Pi/32).

Original entry on oeis.org

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

Views

Author

Wolfdieter Lang, Apr 28 2018

Keywords

Comments

This constant appears in a historic problem posed by Adriaan van Roomen (Adrianus Romanus) in his Ideae mathematicae from 1593, solved by Viète (see the Vieta link) using trigonometry. See the Havil reference, problem 1 (for a correction see below), pp. 69-74, and the Maor reference for Viète's approach, pp. 58-60.
The problem involves the monic Chebyshev polynomial of the first kind R(45, x) (R coefficients are given in A127672). The present problem was stated as R(45, x) = sqrt(2 + sqrt(2 + sqrt(2 + sqrt(2)))) for x = sqrt(2 - sqrt(2 + sqrt(2 + sqrt(2 + sqrt(3))))) (see A302712). This is equivalent to R(45, 2*sin(Pi/96)) = 2*sin(15*Pi/32). It is a special case of the well known identity R(2*k+1, x) = x*(-1)^k*S(2*k, sqrt(4-x^2)), with the Chebyshev S polynomials (see A049310 for the coefficients). Take k = 22, x = 2*sin(Pi/96), and see the Havil reference, p. 71, for the proof of 2*sin(15*Pi/32) = sqrt(2 + sqrt(2 + sqrt(2 + sqrt(2)))). [In the Havil reference on p. 69, the second to last exponent is 43 (not 41), and in the first problem, for the argument x a further +sqrt(2... is missing. In the general identity given on p. 71 a sign factor is missing. It should read, with n = 2*k+1: P_{2*k+1}(2*sin(theta)) = 2*(-1)^k*sin((2*k+1)*theta).]
For the argument x = sqrt(2 - sqrt(2 + sqrt(2 + sqrt(2 + sqrt(3))))) = 2*sin(Pi/96) = 0.65438165643552284... see A302712.
R(45, x) factorizes into minimal polynomials of 2*cos(Pi/k), named C(k, x), for short, C[k], with coefficients given in A187360 as follows. R(45, x) = C[90]*C[30]*C[18]*C[10]*C[6]*C[2]. See a comment in A127672.
All 45 zeros of R(45, x), which are real, are 2*cos((2*k+1)*Pi/90), for k = 0..44. See a comment in A127672.
Viète used the iteration, written in terms of R polynomials as R(45, x) = -R(3, -R(3, R(5, x))) (from the semigroup property of Chebyshev T polynomials). See the Maor reference, pp. 58-60. - Wolfdieter Lang, May 05 2018
An algebraic integer of degree 16. - Charles R Greathouse IV, Jan 29 2022

Examples

			2*sin(15*Pi/32) = 1.990369453344393772489673906218959843150949737459714123...
		

References

  • Julian Havil, The Irrationals, A Story of the Numbers You Can't Count On, Princeton University Press, Princeton and Oxford, 2012, pp. 69-74.
  • Eli Maor, Trigonometric Delights, Princeton University Press, NJ, 1998, pp. 56-62.

Crossrefs

Programs

Formula

This constant is 2*sin(15*Pi/32) = sqrt(2 + sqrt(2 + sqrt(2 + sqrt(2)))). (for a proof see Havil. p.71).

A206549 Nontrivial solution of x^2 == 1 (Modd p), where p is the n-th prime of the form 4*k+1, for odd restricted residue classes Modd p.

Original entry on oeis.org

3, 5, 13, 17, 31, 9, 23, 11, 27, 55, 75, 91, 33, 15, 37, 105, 129, 93, 19, 81, 183, 107, 89, 177, 241, 187, 217, 53, 155, 25, 203, 189, 213, 311, 269, 115, 63, 381, 143, 29, 179, 67, 109, 413, 301, 235, 489, 439, 483, 553
Offset: 1

Views

Author

Wolfdieter Lang, Feb 13 2012

Keywords

Comments

For multiplication Modd n (not to be confused with multiplication mod n) see a comment on A203571.
The trivial solution of x^2 == 1 (Modd n) is x = 1 (Modd n). Note that x = -1 (Modd n) == +1 (Modd n). In the ordinary mod n case the trivial solution is 1 (mod 2) for n=2 (-1 == +1 (mod 2)) and if n>2 the two trivial solutions are 1 (mod n) and the noncongruent -1 (mod n) == n-1 (mod n).
Here multiplication on the reduced residue system Modd p, p an odd prime, with only odd numbers is considered (which is possible, contrary to mod p). In order to have inverses one has to exclude all reduced residue classes Modd p with even numbers. The (p-1)/2 residue classes are then [1],[3],...,[p-2]. For m=1,3,...,p-2, the class [m] Modd p is the union of the ordinary reduced residue classes mod 2p: [m] and [-m]=[2p-m]. Besides the trivial solution x=+1 (Modd p) (note that -1 == +1 (Modd p)) there is a further nontrivial solution if and only if (p-1)/2 is even, i.e. p=A002144(n) (primes of the form 4*k+1), n>=1. The present sequence entry a(n) gives the smallest positive representative for this nontrivial solution Modd A002144(n).
This result uses the fact that every finite group of prime order p is the cyclic group Z_p (Corollary to Lagrange's or also Cauchy's theorem on finite groups or see A000688 for abelian groups). Here for the multiplicative group Modd p (on the odd residue classes) which has order (p-1)/2, for p an odd prime. This turns out to be the Galois group for the minimal polynomial C(p,x), whose coefficients are found in A187360. The sequence {a(n)} arises if one asks for the smallest positive members of the odd restricted residue system Modd p, namely [1],[3],...,[p-2], which are their own inverses besides the trivial element 1 (Modd p).
The row a(n) has in the table for the multiplicative group Modd A002144(n) a 1 on the diagonal, if the table is written for the odd representatives 1,3,...,p-2. The only other diagonal entry 1 appears for the element 1. Note that in the ordinary mod p case, p an odd prime, one always has for the multiplicative group mod p (which has p-1 residue classes) in the multiplication table the diagonal entry 1 only for the representatives 1 and p-1, but p-1 == -1 (mod p) is a trivial solution of x^2 == 1 (mod p).

Examples

			a(6)=9 because the corresponding prime is A002144(6)=41, 9^2 = 81, and 81 Modd 41 is per definition -81 mod 2*41 = +1 (the definition uses the parity of floor(81/41) = 1 being odd, hence the - sign), thus 9^2 == 1 (Modd 41), and 9 is not congruent to 1 (Modd 41) (or -1 (Modd 41)), hence a nontrivial solution.
A002144(n):  5, 13, 17, 29, 37, 41, 53, 61, 73, 89, 97, ...
a(n):        3,  5, 13, 17, 31,  9, 23, 11, 27, 55, 75, ...
3^2 = 9, 9 Modd 5 := -9 mod 10 = 1, the smallest positive representative of the class 1 (Modd 5) = {+-1,+-9,+-11,+-19,...}.
5^2 = 25, 25 Modd 13 := -25 mod 26 = 1.
13^2 = 169, 169 Modd 17 := -169 mod 34 = 1.
17^2 = 289, 289 Modd 29 := -289 mod 2*29 = 1.
...
E.g., for the odd prime 7, not in A002144, there are no self-inverse elements in the multiplicative group Modd 7 (on the odd numbers) except the trivial 1. The inverse of 3 is 5 (Modd 7) and vice versa, since 3*5 = 15 and 15 Modd 7 := 15 mod 14 = 1. (*)
From _Rémi Guillaume_, Sep 08 2024: (Start)
(*) The finite multiplicative group Modd 7 (on the odd residue classes) is of odd order: (7-1)/2 = 3, and is isomorphic to the additive cyclic group Z_3. Moreover, Z_3 has two generating elements: [1] and [2] (mod 3), and no nontrivial self-opposite elements -- since [1]+[2] = [0] (mod 3); likewise, {[1],[3],[5]} (Modd 7) has two generating elements: [3] and [5] (Modd 7), and no nontrivial self-inverse elements -- since [3]*[5] = [1] (Modd 7).
13 is an odd prime in A002144; the finite multiplicative group Modd 13 (on the odd residue classes) is of even order: (13-1)/2 = 6 = 2*3, and is isomorphic to the additive cyclic group Z_6. Moreover, Z_6 has two generating elements: [1] and [5] (mod 6), and one nontrivial self-opposite element: 3*[1] = 3*[5] = [3] (mod 6) -- since [1]+[5] = [2]+[4] = 2*[3] = [0] (mod 6); likewise, {[1],[3],[5],[7],[9],[11]} (Modd 13) has two generating elements: [7] and [11] (Modd 13), and one nontrivial self-inverse element: [7]^3 = [11]^3 = [5] (Modd 13) -- since [3]*[9] = [5]^2 = [7]*[11] = [1] (Modd 13).
17 is an odd prime in A002144; the finite multiplicative group Modd 17 (on the odd residue classes) is of even order: (17-1)/2 = 8 = 2*4, and is isomorphic to the additive cyclic group Z_8. Moreover, Z_8 has four generating elements: [1], [3], [5], [7] (mod 8), and one nontrivial self-opposite element: 4*[1] = 4*[3] = 4*[5] = 4*[7] = [4] (mod 8) -- since [1]+[7] = [2]+[6] = [3]+[5] = 2*[4] = [0] (mod 8); likewise, {[1],[3],[5],[7],[9],[11],[13],[15]} (Modd 17) has four generating elements: [3], [5], [7], [11] (Modd 17), and one nontrivial self-inverse element: [3]^4 = [5]^4 = [7]^4 = [11]^4 = [13] (Modd 17) -- since [3]*[11] = [5]*[7] = [9]*[15] = [13]^2 = [1] (Modd 17).
(End)
		

Crossrefs

See A203571 for Modd n, A002144 for corresponding primes.

Formula

a(n)^2 == 1 (Modd A002144(n)), n>=1, a(n) the smallest positive solution not 1. For Modd p, p an odd prime, see the comment section and the examples.

A038342 G.f.: 1/(1 - 3 x - 3 x^2 + 4 x^3 + x^4 - x^5).

Original entry on oeis.org

1, 3, 12, 41, 146, 511, 1798, 6314, 22187, 77946, 273856, 962142, 3380337, 11876254, 41725295, 146595013, 515037713, 1809501081, 6357387289, 22335644540, 78472648463, 275700866485, 968630080476, 3403123989780
Offset: 0

Views

Author

Keywords

Comments

Middle line of 5-wave sequence A038201.
Let M denotes the 5 X 5 matrix = row by row (1,1,1,1,1)(1,1,1,1,0)(1,1,1,0,0)(1,1,0,0,0)(1,0,0,0,0) and A(n) the vector (x(n),y(n),z(n),t(n),u(n))=M^n*A where A is the vector (1,1,1,1,1) then a(n)=z(n). - Benoit Cloitre, Apr 02 2002
a(n) appears in the formula for 1/rho(11)^n, with rho(11) := 2*cos(Pi/11) (length ratio (smallest diagonal/side) in the regular 11-gom) when written in the power basis of the degree 5 number field Q(rho(11)): 1/rho(11)^n = a(n)*1 + A230080(n)*rho(11) - A230081(n)*rho(11)^2 - A069006(n-1)* rho(11)^3 + a(n-1)*rho(11)^4, n >= 0, with A069006(-1) = 0 = a(-1). See A230080 with the example for n=4. - Wolfdieter Lang, Nov 04 2013
From Wolfdieter Lang, Nov 20 2013: (Start)
The limit a(n+1)/a(n) for n -> infinity is omega(11) := S(4, x) = 1 - 3*x^2 + x^4 with x = rho(11). omega(11) = 1/(2*cos(Pi*5/11)), approx. 3.51333709. For the Chebyshev S-polynomial see A049310. For rho(11) see the preceding comment. The decimal expansion of omega(11) is given in A231186. omega(11) is an integer in Q(rho(11)) with power basis coefficients [1,0,-3,0,1]. It is known to be the length ratio (longest diagonal)/side in the regular 11-gon.
This limit follows from the a(n)-recurrence and the solutions of X^5 - 3*X^4 - 3*X^3 + 4*X^2 + X - 1 = 0, which are given by the inverse of the known solutions of the minimal polynomial C(11, x) of rho(11) (see A187360). The other four X solutions are 1/rho(11), with coefficients [3,3,-4,-1,1] in the power basis of Q(rho(11)), approx. 0.52110856, 1/(2*cos(Pi*3/11)) with coefficients [-1,-1,1,0,0], approx. 0.763521119, 1/(2*cos(Pi*7/11)) with coefficients [0,-3,3,1,-1], approx. -1.20361562, and 1/(2*cos(Pi*9/11)) with coefficients [0,1,3,0,-1], approx. -0.59435114. These solutions for X are therefore irrelevant for this sequence.
The same limit omega(11) is therefore obtained for the sequences A069006, A230080 and A230081. See the Nov 04 2013 comment.
(End)

References

  • Jay Kappraff, Beyond Measure, A Guided Tour Through Nature, Myth and Number, World Scientific, 2002.

Crossrefs

Cf. A006358, A069006, A230080, A230081: same recurrence formula.
Cf. A066170.

Programs

  • Mathematica
    b = {-1, 3, 3, -4, -1, 1}; p[x_] := Sum[x^(n - 1)*b[[7 - n]], {n, 1, 6}] q[x_] := ExpandAll[x^5*p[1/x]] Table[ SeriesCoefficient[ Series[x/q[x], {x, 0, 30}], n], {n, 0, 30}] (* Roger L. Bagula and Gary W. Adamson, Sep 19 2006 *)
    LinearRecurrence[{3,3,-4,-1,1},{1,3,12,41,146},30] (* Harvey P. Dale, Aug 27 2012 *)

Formula

a(n) = 3a(n-1)+3a(n-2)-4a(n-3)-a(n-4)+a(n-5). Also a(n) = b(4n+2) with b(n) as in 5-wave sequence A038201.
G.f.: 1/(1 - 3 x - 3 x^2 + 4 x^3 + x^4 - x^5) = -1/C(11, x), with C(11, x) the minimal polynomial of 2*cos(Pi/11) (see the name and A187360 for C). - Wolfdieter Lang, Nov 07 2013

Extensions

More terms from Benoit Cloitre, Apr 02 2002
Edited by N. J. A. Sloane at the suggestion of Andrew S. Plewe, Jun 08 2007

A228785 Table of coefficients of the algebraic number s(2*l+1) = 2*sin(Pi/(2*l+1)) as a polynomial in odd powers of rho(2*(2*l+1)) = 2*cos(Pi/(2*(2*l+1))) (reduced version).

Original entry on oeis.org

1, -3, 1, 5, -5, 1, -4, 5, -1, 9, -30, 27, -9, 1, -11, 55, -77, 44, -11, 1, 4, -13, 7, -1, -15, 140, -378, 450, -275, 90, -15, 1, 17, -204, 714, -1122, 935, -442, 119, -17, 1, -4, 25, -26, 9, -1, 0, 21, -385, 2079, -5148, 7007, -5733, 2940, -952, 189, -21, 1, -8, 126, -539, 967, -870, 429, -118, 17, -1, 0
Offset: 1

Views

Author

Wolfdieter Lang, Oct 07 2013

Keywords

Comments

In the regular (2*l+1)-gon, l >= 1, inscribed in a circle of radius R the length ratio side/R is s(2*l+1) = 2*sin(Pi/(2*l+1)). This can be written as a polynomial in the length ratio (smallest diagonal)/side in the (2*(2*l+1))-gon given by rho(2*(2*l+1)) = 2*cos(Pi/(2*(2*l+1))). This leads, in a first step, to the signed triangle A111125. Because of the minimal polynomial of the algebraic number rho(2*(2*l+1)) of degree delta(2*(2*l+1)) = A055034(2*(2*l+1)), called C(2*(2*l+1),x) (with coefficients given in A187360), one can eliminate all powers rho(2*(2*l+1))^k with k >= delta(2*(2*l+1)) by using C(2*(2*l+1),rho(2*(2*l+1))) = 0. This leads to the present table expressing s(2*(l+1)) in terms of odd powers of rho(2*(2*l+1)) with maximal exponent delta(2*(2*l+1))-1.
This table gives the coefficients of s(2*l+1), related to the (2*l+1)-gon, in the power basis of the algebraic number field Q(rho(2*(2*l+1))) of degree delta(2*(2*l+1)), related to rho from the (2*(2*l+1))-gon, provided one inserts zeros for the even powers, starting each row with a zero and filling zeros at the end in order to obtain the row length delta(2*(2*l+1)). Note that some trailing zeros in the present table (e.g., row l = 10) have been given such that the row length for the s(2*l+1) coefficients in the power basis Q(rho(2*(2*l+1))) becomes just twice the one of this table.
Thanks go to Seppo Mustonen for telling me about his findings regarding the square of the sum of all length in the regular n-gon, which led me to consider this entry (even though for odd n this is not needed because only s(2*l+1)^2 = 4 - rho(2*l+1)^2 enters).

Examples

			The table a(l,m), with n = 2*l+1, begins:
n,   l \m  0    1     2     3    4     5    6    7   8   9 10
3,   1:    1
5,   2:   -3    1
7,   3:    5   -5     1
9,   4:   -4    5    -1
11,  5:    9  -30    27    -9    1
13,  6:  -11   55   -77    44  -11     1
15,  7:    4  -13     7    -1
17,  8:  -15  140  -378   450 -275    90  -15    1
19,  9:   17 -204   714 -1122  935  -442  119  -17   1
21, 10:   -4   25   -26     9   -1     0
23, 11:   21 -385  2079 -5148 7007 -5733 2940 -952 189 -21  1
25, 12:   -8  126  -539   967 -870   429 -118   17  -1   0
27, 13:    4  -41    70   -43   11    -1    0    0   0
...
n = 29 l =  14:  -27, 819, -7371, 30888, -72930, 107406, -104652, 69768, -32319, 10395, -2277, 324, -27, 1.
n = 5, l=2: s(5) = -3*rho(10) + rho(10)^3 = (tau - 1)*sqrt(2 + tau), approximately 1.175570504, where tau = (1 + sqrt(5))/2 (golden section).
n = 17, l = 8: s(17) = -15*x + 140*x^3 - 378*x^5 + 450*x^7 - 275*x^9 + 90*x^11 - 15*x^13 + 1*x^15, with x = rho(34) = 2*cos(Pi/34). s(17) is approximately 0.3674990356. With the length row l = 8 the degree of the algebraic number s(17) = 2*sin(Pi/17) is therefore 2*8 = 16. See A228787 for the decimal expansion of s(17) and A228788 for the one of rho(34).
		

Crossrefs

Cf. A055034, A187360, A228783 (even n case), A228786 (minimal polynomials).

Formula

a(l,m) = [x^(2*m+1)](s(2*l+1,x)(mod C(2*(2l+1),x))), with s(2*l+1,x) = sum((-1)^(l-1-s)* A111125(l1,s)*x^(2*s+1), s=0..l-1), l >= 1, m=0, ..., (delta(2*(2*l+1))/2 - 1), with delta(n) = A055034(n).
Rows 9,15,21,27 are coefficients of polynomials in reciprocal powers of u for rows n=2,4,6,8 generated by the o.g.f. (u-4)/(u-ux+x^2) of A267633. These polynomials in u occur in a moving average of the polynomials of A140882 interlaced with these polynomials. - Tom Copeland, Jan 16 2016

A231181 Expansion of 1/(1 - x - 4*x^2 + 3*x^3 + 3*x^4 - x^5).

Original entry on oeis.org

1, 1, 5, 6, 20, 27, 75, 110, 275, 429, 1001, 1637, 3639, 6172, 13243, 23104, 48280, 86090, 176341, 319792, 645150, 1185305, 2363596, 4386331, 8669142, 16212913, 31825005, 59873834, 116914020, 220964744, 429737220, 815057639, 1580244061
Offset: 0

Views

Author

Wolfdieter Lang, Nov 05 2013

Keywords

Comments

This sequence is fundamental for the coefficient sequences for the nonnegative powers of rho(11) = 2*cos(Pi/n) (length ration (smallest diagonal)/side in the regular 11-gon (Hendecagon)) when written in the power basis of the degree 5 number field Q(rho(11)). See A187360 for the minimal polynomial of rho(11) which is C(11, x) = x^5 - x^4 - 4*x^3 + 3*x^2 + 3*x - 1. See A231182-5 for these coefficient sequences.

Crossrefs

Programs

  • Mathematica
    CoefficientList[Series[1/(1-x-4x^2+3x^3+3x^4-x^5),{x,0,50}],x] (* or *) LinearRecurrence[{1,4,-3,-3,1},{1,1,5,6,20},50] (* Harvey P. Dale, Nov 13 2013 *)

Formula

G.f.: 1/(1 - x - 4*x^2 + 3*x^3 + 3*x^4 - x^5).
a(n) = a(n-1) + 4*a(n-2) - 3*a(n-3) - 3*a(n-4) + a(n-5) for n>=0, with a(-5)=1, a(-4)=a(-3)=a(-2)=a(-1)=0.

A231190 Numerator of abs(n-8)/(2*n), n >= 1.

Original entry on oeis.org

7, 3, 5, 1, 3, 1, 1, 0, 1, 1, 3, 1, 5, 3, 7, 1, 9, 5, 11, 3, 13, 7, 15, 1, 17, 9, 19, 5, 21, 11, 23, 3, 25, 13, 27, 7, 29, 15, 31, 2, 33, 17, 35, 9, 37, 19, 39, 5, 41, 21, 43, 11, 45, 23, 47, 3, 49, 25, 51, 13, 53, 27, 55, 7, 57, 29, 59, 15, 61, 31, 63, 4, 65, 33, 67, 17
Offset: 1

Views

Author

Wolfdieter Lang, Dec 12 2013

Keywords

Comments

Because 2*sin(Pi*4/n) = 2*cos(Pi*abs(n-8)/(2*n)) = 2*cos(Pi*a(n)/b(n)) with gcd(a(n),b(n)) = 1, one has
2*sin(Pi*4/n) = R(a(n), x) (mod C(b(n), x)), with x = 2*cos(Pi/b(n)) =: rho(b(n)). The integer Chebyshev R and C polynomials are found in A127672 and A187360, respectively.
b(n) = A232625(n). This shows that 2*sin(Pi*4/n) is an integer in the algebraic number field Q(rho(b(n))) of degree delta(b(n)), with delta(k) = A055034(k). This degree delta(b(n)) is given in A231193(n), and if gcd(n,2) = 1 it coincides with the one for sin(2*Pi/n) given by A093819(n). See Theorem 3.9 of the I. Niven reference, pp. 37-38, which uses gcd(k, n) = 1. See also the Jan 09 2011 comment on A093819.
a(n) and b(n) = A232625(n) are the k=2 members of a family of pair of sequences p(k,n) and q(k,n), n >= 1, k >= 1, relevant to determine the algebraic degree of 2*sin(Pi*2*k/n) from the trigonometric identity (used in the D. H. Lehmer and I. Niven references) 2*sin(Pi*2*k/n) = 2*cos(Pi*abs(n-4*k)/(2*n)) = 2*cos(Pi*p(k,n)/q(k,n)). This is R(p(k,n), x) (mod C(q(k,n), x)), with x = 2*cos(Pi/q(k,n)) =: rho(q(k,n)). The polynomials R and C have been used above. C(q(k,n), x) is the minimal polynomial of rho(q(k,n)) with degree delta(q(k,n)), which is then the degree, call it deg(k,n), of the integer 2*sin(Pi*2*k/n) in the number field Q(rho(q(k,n))). From Theorem 3.9 of the I. Niven reference deg(k,n) is, for given k, for those n with gcd(k, n) = 1 determined by A093819(n). In general deg(k,n) = A093819(n/gcd(k,n)). For the k=1 instance p(1,n) and q(1,n) see comments on A106609 and A225975.

References

  • I. Niven, Irrational Numbers, The Math. Assoc. of America, second printing, 1963, distributed by John Wiley and Sons.

Crossrefs

Cf. A127672 (R), A187360 (C), A232625 (b), A055034 (delta), A093819 (degree if k=1), A232626(degree if k=2), A106609 (k=1, p), A225975 (k=1, q), A106617.

Programs

  • Maple
    f:= n -> numer(abs(n-8)/(2*n)):
    map(f, [$1..100]); # Robert Israel, Dec 06 2018
  • Mathematica
    a[n_] := Numerator[Abs[n-8]/(2n)]; Array[a, 50] (* Amiram Eldar, Dec 06 2018 *)

Formula

a(n) = numerator(abs(n-8)/(2*n)), n >= 1.
a(n) = abs(n-8)/gcd(n-8, 16).
a(n) = abs(n-8) if n is odd; if n is even then a(n) = abs(n-8)/2 if n/2 == 1, 3, 5, 7 (mod 8), a(n) = abs(n-8)/4 if n/2 == 2, 6 (mod 8), a(n) = abs(n-8)/8 if n/2 == 0 (mod 8) and a(n) = abs(n-8)/16 if n == 4 (mod 8).
O.g.f.: 1+ x*(7 + 3*x + 5*x^2 + 1*x^3 + 3*x^4 + 1*x^5 + 1*x^6) + N(x)/(1-x^16)^2 , with N(x) = x^9*((1+x^30) + x*(1+x^28) + 3*x^2*(1+x^26) + x^3*(1+x^24) + 5*x^4*(1+x^22) + 3*x^5*(1+x^20) + 7*x^6*(1+x^18) + x^7*(1+x^16) + 9*x^8*(1+x^14) + 5*x^9*(1+x^12) + 11*x^10*(1+x^10) + 3*x^11*(1+x^8) + 13*x^12*(1+x^6) + 7*x^13*(1+x^4) + 15*x^14*(1+x^2)+x^15).
a(n+32)-2*a(n+16)+a(n) = 0 for n >= 8.
a(n+8) = A106617(n). - Peter Bala, Feb 28 2019

A232624 Coefficient array for the minimal polynomials of 2*cos(2*Pi/n) for n >= 1.

Original entry on oeis.org

-2, 1, 2, 1, 1, 1, 0, 1, -1, 1, 1, -1, 1, -1, -2, 1, 1, -2, 0, 1, 1, -3, 0, 1, -1, -1, 1, 1, 3, -3, -4, 1, 1, -3, 0, 1, -1, 3, 6, -4, -5, 1, 1, 1, -2, -1, 1, 1, 4, -4, -1, 1, 2, 0, -4, 0, 1, 1, -4, -10, 10, 15, -6, -7, 1, 1, -1, -3, 0, 1, 1, 5, -10, -20, 15, 21, -7, -8, 1, 1, 5, 0, -5, 0, 1, 1, -8, 8, 6, -6, -1, 1, -1, 3, 3, -4, -1, 1
Offset: 1

Views

Author

Wolfdieter Lang, Nov 28 2013

Keywords

Comments

The length of row n is deg(n) + 1, n >= 1, with the degree deg(1) = deg(2) = 1, and deg(n) = phi(n)/2 = A023022(n) for n >= 3. That is: 2, 2, 2, 2, 3, 2, 4, 3, 4, 3, 6, 3, 7, 4, 5, 5, 9, 4, 10, 5, ...
2*cos(2*Pi/n) = R(2, rho(n)) = -2 + rho(n)^2, with rho(n) = 2*cos(Pi/n) and the monic Chebyshev T-polynomials R(n, x), n>=1, with coefficient table A127672. For even n 2*cos(2*Pi/n) becomes rho(n/2). Therefore, 2*cos(2*Pi/n) is an integer in the algebraic number field Q(rho(n/2)) or Q(rho(n)) if n is even or odd, respectively. The degree deg(n) of the minimal polynomials, call them MPR2(n, x), is delta(n/2) or delta(n) for even or odd n, respectively, with delta(n) = A055034(n). This becomes deg(n) as given above.
These minimal polynomials are C(n/2, x) if n is even, with C(k, x) the minimal polynomials of rho(k) given in A187360.
For odd n the known zeros of C(n, x) are rho(n) and its conjugates, call them rho(n;j), j=1, 2, ..., delta(n), with rho(n;1) = rho(n). These conjugates can be written in the power basis of Q(rho(2*l+1)), l >= 1. See the link to the Q(2cos(Pi/n)) paper in A187360, and there Table 4. Then the (monic) minimal polynomial MPR2(2*l+1, x) = Product_{j=1..delta(2*l+1)} (x - (-2 + rho(2*l+1;j)^2)), l >= 0. After expansion all powers of rho(2*l+1) not smaller than delta(2*l+1) are reduced with the help of C(2*l+1,rho(2*l+1)) = 0, leading automatically to integer coefficients (without using the trigonometric version of rho(2*l+1)).
Compare the present minimal polynomials with the (non-monic) minimal polynomials of cos(2*Pi/n) given in an Artur Jasinski comment from Oct 28 2008 on A023022.
The present monic integer minimal polynomials of 2*cos(2*Pi/n), called MPR2(n, x), are related to the non-monic integer minimal polynomials of 2*cos(2*Pi/n) of A181877, called there psi(n, x) by MPR2(n, x) = psi(n, x/2). See Table 5 of the Wolfdieter Lang link given there. - Wolfdieter Lang, Nov 29 2013
The present minimal polynomials MPR2(n, x) are C(n/2, x) if n is even (see above) and (-1)^degC(n)*C(n, -x) if n is odd, with the C polynomials from A187360 of degree degC(n) = A055034(n). Note that degC(2*k+1) = deg(2*k+1) = A023022(2*k+1), k >= 0. - Wolfdieter Lang, Apr 12 2018
Let {U(n, x)} be defined as: U(0, x) = 0, U(1, x) = 1, U(n, x) = x*U(n-1, x) - U(n-2, x) for n >= 2, then U(n, x) = Product_{k|2n, k>=3} MPR2(k, x) for n > 0, because U(n, x) = Product_{m=1..n-1} (x - 2*cos(Pi*m/n)) for n > 0. - Jianing Song, Jul 08 2019
Conjecture: For odd n > 1, the term of the highest degree of (MPR2(2n, x) - MPR2(n, x))/2 is (-1)^omega(n) * x^(phi(n)/2-n/rad(n)) = A076479(n) * x^(A023022(n)-A003557(n)). For example, for n = 15, (MPR2(30, x) - MPR2(15, x))/2 = x^3 - 4x; for n = 105, (MPR2(210, x) - MPR2(105, x))/2 = -x^23 + ...; for n = 225, (MPR2(450, x) - MPR2(225, x))/2 = x^45 + ... If this is true, then for odd n > 1, a(n,A023022(n)-k) = a(2n,A023022(n)-k) = 0 for k = 1, 3, ..., A003557(n)-2; a(n,A023022(n)-A003557(n)) = -A076479(n) and a(2n,A023022(n)-A003557(n)) = A076479(n). - Jianing Song, Jul 11 2019
Conjecture: Let MPR2(n, x) equal the odd indexed (n) monic polynomial. If the number of roots with negative signs is even, then n is a term in A014659. Example: n = 7 for x^3 + x^2 - 2x - 1, having two negative roots, (-445041..., and -1.801937...). Two is even so the integer 7 is in A014659. n = 9 for the polynomial x^3 - 3x + 1, with one negative root, (-1.87938). The term 9 is in A014657. - Gary W. Adamson, Oct 20 2021
From Gary W. Adamson, Nov 30 2021 (Start)
Given the first (phi(n))/2 terms for odd n, the number of even terms in the set is equal to the number of positive roots in MPR2(n, x). The number of odd terms is equal to the number of negative roots in MPR2(n, x). For n = 11, (phi(11))/2 = 5, and the set is (1, 2, 3, 4, 5); having two even and three odd terms.
Given MPR2(11, x) = x^5 + x^4 - 4x^3 - 3x^2 + 3x + 1, there are two roots with positive signs: 1.682508..., and .830830...; and three roots with negative signs: -1.918985..., -1.309921..., and -.284629....Using the Descartes' rule for signs, MPR2(11, x) has coefficients signed (+ + - - + +); having two sign changes indicating two positive roots. With all real roots there are three (= 5 - 2) roots signed negative. (End)

Examples

			The table a(n,m) begins:
n\m   0   1    2    3    4    5   6   7   8   9 ...
1:   -2   1
2:    2   1
3:    1   1
4:    0   1
5:   -1   1    1
6:   -1   1
7:   -1  -2    1    1
8:   -2   0    1
9:    1  -3    0    1
10:  -1  -1    1
11:   1   3   -3   -4    1    1
12:  -3   0    1
13:  -1   3    6   -4   -5    1   1
14:   1  -2   -1    1
15:   1   4   -4   -1    1
16:   2   0   -4    0    1
17:   1  -4  -10   10   15   -6  -7   1   1
18:  -1  -3    0    1
19:   1   5  -10  -20   15   21  -7  -8   1   1
20:   5   0   -5    0    1
...
MPR2(14, x) = C(7, x) = 1  - 2*x  - x^2  + x^3.
MPR2(7, x) = (x - (-2 + z^2))*(x - (-2 + (-1 - z + z^2)^2))*
  (x - (-2 + (2 - z^2)^2)), with z = rho(7). Expanded and reduced with C(7, z) = 0 this becomes finally MPR2(7, x) = -1 - 2*x + x^2 + x^3.
MPR2(7, x) = -C(7, -x). - _Wolfdieter Lang_, Apr 12 2018
		

Crossrefs

Cf. A023022 (degree), A055034, A187360 (C polynomials).
Cf. A181877, A181875/A181876. - Wolfdieter Lang, Nov 29 2013
Cf. A065941.
Cf. A003558.

Programs

  • Mathematica
    ro[n_] := (MPR2 = CoefficientList[p = MinimalPolynomial[2*Cos[2*(Pi/n)], x], x]; MPR2); Flatten[Table[ro[n], {n, 30}]] (* Jianing Song, Jul 09 2019 *)

Formula

a(n,m) = [x^m] MPR2(n, x), n >= 1, m=0, 1, ..., deg(n), with MPR2(n, x) the (monic) minimal polynomials of 2*cos(2*Pi/n), explained in a comment above. The degree is deg(1) = deg(2) = 1, deg(n) = phi(n)/2 = A023022(n), n >= 3 (phi is the Euler totient function A000010).
From Jianing Song, Jul 09 2019: (Start)
MPR2(n, x) = Product_{0<=m<=n/2, gcd(m, n)=1} (x - 2*cos(2*Pi*m/n)).
If 4 divides n, then MPR2(n, x) = Product_{k|(n/2)} U((n/2)/k, x)^mu(k), where U(n, x) is the polynomial defined in comment and mu = A008683. For odd n, MPR2(n, x)*MPR2(2n, x) = Product_{k|n} U(n/k, x)^mu(k).
If 4 divides n and n > 4, then a(n,2k+1) = 0, that is, MPR2(n, x) contains even powers of x only.
For odd n > 1, a(2n,k) = a(n,k)*(-1)^(A023022(n)-k). (End)

A206552 Moduli n for which the multiplicative group Modd n is non-cyclic (acyclic).

Original entry on oeis.org

12, 20, 24, 28, 30, 36, 40, 42, 44, 48, 52, 56, 60, 63, 65, 66, 68, 70, 72, 76, 78, 80, 84, 85, 88, 90, 91, 92, 96, 100, 102, 104, 105, 108, 110, 112, 114, 116, 117, 120, 124, 126, 130, 132, 133, 136, 138, 140, 144, 145, 148, 150, 152, 154, 156, 160, 164, 165
Offset: 1

Views

Author

Wolfdieter Lang, Mar 27 2012

Keywords

Comments

For Modd n (not to be confused with mod n) see a comment on A203571.
Precisely these numbers n (only the ones <=165 are shown above) have no primitive root Modd n. See the zero entries of A206550, except A206550(1) = 0 which stands for a primitive root 0.
The multiplicative Modd n group is the Galois group Gal(Q(rho(n))/Q), with the algebraic number rho(n) := 2*cos(Pi/n) with minimal polynomial C(n,x), whose coefficients are given in A187360.

Examples

			a(1) = 12 because A206550(12) = 0 for the first time, not counting A206550(1) = 0. The cycle structure of the multiplicative Modd 12 group is [[5,1],[7,1],[11,1]]. This is the (abelian, non-cyclic) group Z_2 x Z_2 (isomorphic to the Klein group V_4 or Dih_2).
a(2) = 20 because A206550(20) = 0 for the second time, not counting A206550(1) = 0. The cycle structure of the multiplicative Modd 20 group is [[3,9,13,1],[7,9,17,1],[11,1],[19,1]]. This is the (abelian, non-cyclic) group Z_4 x Z_2.
		

Crossrefs

Cf. A206550, A206551, A033949 (mod n case).

Formula

A206550(a(n)) = 0, n>=1.
Previous Showing 31-40 of 84 results. Next