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

A274663 Sum of n-th powers of the roots of x^3 + 4*x^2 - 11*x - 1.

Original entry on oeis.org

3, -4, 38, -193, 1186, -6829, 40169, -234609, 1373466, -8034394, 47011093, -275049240, 1609284589, -9415668903, 55089756851, -322322100748, 1885860059450, -11033893589177, 64557712909910, -377717821061137, 2209972232664381, -12930227249420121
Offset: 0

Views

Author

Kai Wang, Jul 01 2016

Keywords

Comments

This is half of a two sided sequences.
The other half is A274664. - Kai Wang, Aug 02 2016
a(n) is x1^n + x2^n + x3^n, where x1, x2, x3 are the roots of the polynomial x^3 + 4*x^2 - 11*x - 1.
x1 = (cos(Pi/7))^2/(cos(2*Pi/7)*cos(4*Pi/7)),
x2 = -(cos(2*Pi/7))^2/(cos(4*Pi/7)*cos(Pi/7)),
x3 = -(cos(4*Pi/7))^2/(cos(Pi/7) *cos(2*Pi/7)).

Crossrefs

Programs

  • Mathematica
    RecurrenceTable[{a[0] == 3, a[1] == -4, a[2] == 38, a[n] == -4 a[n - 1] + 11 a[n - 2] + a[n - 3]}, a, {n, 0, 20}] (* Michael De Vlieger, Jul 02 2016 *)
    LinearRecurrence[{-4,11,1},{3,-4,38},30] (* Harvey P. Dale, Dec 28 2022 *)
  • PARI
    polsym(x^3 + 4*x^2 - 11*x - 1, 21)
    
  • PARI
    Vec((3+8*x-11*x^2)/(1+4*x-11*x^2-x^3) + O(x^99)) \\ Altug Alkan, Jul 08 2016

Formula

a(n) = ((cos(Pi/7))^2/(cos(2*Pi/7)*cos(4*Pi/7)))^n + (-(cos(2*Pi/7))^2/(cos(4*Pi/7)*cos(Pi/7)))^n + (-(cos(4*Pi/7))^2/(cos(Pi/7)*cos(2*Pi/7)))^n.
a(n) = -4*a(n-1) + 11*a(n-2) + a(n-3) for n>2.
G.f.: (3+8*x-11*x^2)/(1+4*x-11*x^2-x^3). - Wesley Ivan Hurt, Jul 02 2016
a(n) = (-1/8)^(-n)*cos(Pi/7)^(3*n) + (-8)^n*sin(Pi/14)^(3*n) +
8^n*sin(3*Pi/14)^(3*n). - Wesley Ivan Hurt, Jul 11 2016

A320918 Sum of n-th powers of the roots of x^3 + 9*x^2 + 20*x - 1.

Original entry on oeis.org

3, -9, 41, -186, 845, -3844, 17510, -79865, 364741, -1667859, 7636046, -35002493, 160633658, -738017016, 3394477491, -15629323441, 72036344133, -332346150886, 1534759151873, -7093873005004, 32817327856690, -151943731458257, 704053152985509, -3264786419847751
Offset: 0

Views

Author

Kai Wang, Oct 24 2018

Keywords

Comments

In general, for integer h, k let
X = (sin^(h+k)(2*Pi/7))/(sin^(h)(4*Pi/7)*sin^(k)(8*Pi/7)),
Y = (sin^(h+k)(4*Pi/7))/(sin^(h)(8*Pi/7)*sin^(k)(2*Pi/7)),
Z = (sin^(h+k)(8*Pi/7))/(sin^(h)(2*Pi/7)*sin^(k)(4*Pi/7)).
then X, Y, Z are the roots of a monic equation
t^3 + a*t^2 + b*t + c = 0
where a, b, c are integers and c = 1 or -1.
Then X^n + Y^n + Z^n, n = 0, 1, 2, ... is an integer sequence.
Instances of such sequences with (h,k) values:
(-3,0), (0,3), (3,-3): gives A274663;
(-3,3), (0,-3): give A274664;
(-2,0), (0,2), (2,-2): give A198636;
(-2,-3), (-1,-2), (2,-1), (3,-1): give A274032;
(-1,-1), (-1,2): give A215076;
(-1,0), (0,1), (1,-1): give A094648;
(-1,1), (0,-1), (1,0): give A274975;
(1,1), (-2,1), (1,-2): give A274220;
(1,2), (-3,1), (2,-3): give A274075;
(1,3): this sequence.

Crossrefs

Programs

  • Maple
    a := proc(n) option remember; if n < 3 then [3, -9, 41][n+1] else
    -9*a(n-1) - 20*a(n-2) + a(n-3) fi end: seq(a(n), n=0..32); # Peter Luschny, Oct 25 2018
  • Mathematica
    CoefficientList[Series[(3 + 18*x + 20*x^2) / (1 + 9*x + 20*x^2 - x^3) , {x, 0, 50}], x] (* Amiram Eldar, Dec 09 2018 *)
    LinearRecurrence[{-9,-20,1},{3,-9,41},30] (* Harvey P. Dale, Dec 10 2023 *)
  • PARI
    polsym(x^3 + 9*x^2 + 20*x - 1, 25) \\ Joerg Arndt, Oct 24 2018
    
  • PARI
    Vec((3 + 18*x + 20*x^2) / (1 + 9*x + 20*x^2 - x^3) + O(x^30)) \\ Colin Barker, Dec 09 2018

Formula

a(n) = ((sin^4(2*Pi/7))/(sin(4*Pi/7)*sin^3(8*Pi/7)))^n
+ ((sin^4(4*Pi/7))/(sin(8*Pi/7)*sin^3(2*Pi/7)))^n
+ ((sin^4(8*Pi/7))/(sin(2*Pi/7)*sin^3(4*Pi/7)))^n.
a(n) = -9*a(n-1) - 20*a(n-2) + a(n-3) for n>2.
G.f.: (3 + 18*x + 20*x^2) / (1 + 9*x + 20*x^2 - x^3). - Colin Barker, Dec 09 2018

A215139 a(n) = (a(n-1) - a(n-3))*7^((1+(-1)^n)/2) with a(6)=5, a(7)=4, a(8)=22.

Original entry on oeis.org

5, 4, 22, 17, 91, 69, 364, 273, 1428, 1064, 5537, 4109, 21315, 15778, 81683, 60368, 312130, 230447, 1190553, 878423, 4535832, 3345279, 17267992, 12732160, 65708167, 48440175, 249956105, 184247938, 950654341, 700698236, 3615152086, 2664497745, 13746596563, 10131444477
Offset: 6

Views

Author

Roman Witula, Aug 04 2012

Keywords

Comments

The Ramanujan-type sequence the number 9 for the argument 2*Pi/7. The sequence is connecting with the following decomposition: (s(4)/s(1))^(1/3)*s(1)^n + (s(1)/s(2))^(1/3)*s(2)^n + (s(2)/s(4))^(1/3)*s(4)^n = x(n)*(4-3*7^(1/3))^(1/3) + y(n)*(11-3*49^(1/3))^(1/3), where s(j) := sin(2*Pi*j/7), x(0)=1, x(1)=-7^(1/6)/2, x(2)=y(0)=y(1)=0, y(2)=7^(1/3)/4 and X(n)=sqrt(7)*(X(n-1)-X(n-3)) for every n=3,4,..., and X=x or X=y. It could be deduced the formula 4*y(n) = a(n)*7^(1/3 + (3+(-1)^n)/4), which implies a(0)=0, a(1)= 0, a(2)= 1/7, a(3)=1/7, a(4)=1, a(5)=6/7, i.e., A163260(n)=7*a(n) for every n=0,1,...,5. The sequence a(n) is discussed in third Witula paper.

Examples

			From values of x(2),y(2) and the identity 2*sin(t)^2=1-cos(2*t) we obtain (s(4)/s(1))^(1/3)*c(1) + (s(1)/s(2))^(1/3)*c(4) + (s(2)/s(4))^(1/3)*c(1) = (4-3*7^(1/3))^(1/3) - (1/2)*(7*(11-3*49^(1/3)))^(1/3), where c(j):=cos(2*Pi*j/7). Further, from values of x(1),x(3),y(1),y(3) and the identity 4*sin(t)^3=3*sin(t)-sin(3*t) we obtain (s(4)/s(1))^(1/3)*s(4) + (s(1)/s(2))^(1/3)*s(1) + (s(2)/s(4))^(1/3)*s(2) = (-3*7^(1/6)/2 +4*7^(1/2))*(4-3*7^(1/3))^(1/3) - 7^(5/6)*(11-3*49^(1/3))^(1/3).
		

References

  • R. Witula, E. Hetmaniok and D. Slota, Sums of the powers of any order roots taken from the roots of a given polynomial, Proceedings of the Fifteenth International Conference on Fibonacci Numbers and Their Applications, Eger, Hungary, 2012.

Crossrefs

Programs

  • Magma
    I:=[5,4,22,17,91,69]; [n le 6 select I[n] else 7*Self(n-2) - 14*Self(n-4) + 7*Self(n-6): n in [1..30]]; // G. C. Greubel, Apr 19 2018
  • Mathematica
    LinearRecurrence[{0,7,0,-14,0,7}, {5,4,22,17,91,69}, {1,50}] (* G. C. Greubel, Apr 19 2018 *)
  • PARI
    Vec(-x*(1+x)*(6*x^4+x^3-12*x^2-x+5)/(-1+7*x^2-14*x^4+7*x^6) + O(x^50)) \\ Michel Marcus, Apr 20 2016
    

Formula

G.f.: -x*(1+x)*(6*x^4+x^3-12*x^2-x+5) / ( -1+7*x^2-14*x^4+7*x^6 ). - R. J. Mathar, Sep 14 2012

Extensions

More terms from Michel Marcus, Apr 20 2016

A287396 a(n) = (7*(csc(2*Pi/7))^2)^n + (7*(csc(4*Pi/7))^2)^n + (7*(csc(8*Pi/7))^2)^n.

Original entry on oeis.org

3, 56, 1568, 53312, 1931776, 71300096, 2645479424, 98305622016, 3654656065536, 135885355483136, 5052615982317568, 187873377732526080, 6985794697679601664, 259756778648305139712, 9658687473893481906176, 359144636249686988029952, 13354285908291066433372160
Offset: 0

Views

Author

Kai Wang, May 24 2017

Keywords

Crossrefs

Programs

  • Mathematica
    LinearRecurrence[{56,-784,3136},{3,56,1568},30] (* Harvey P. Dale, Aug 08 2017 *)
  • PARI
    Vec((3 - 28*x)*(1 - 28*x) / (1 - 56*x + 784*x^2 - 3136*x^3) + O(x^30)) \\ Colin Barker, May 25 2017
    
  • PARI
    polsym(x^3 - 56*x^2 + 784* x - 3136, 20) \\ Joerg Arndt, May 26 2017

Formula

a(n) = x1^n + x2^n + x3^n, where x1, x2, x3 are the roots of x^3 - 56*x^2 + 784* x - 3136, x1 = 7*(csc(2*Pi/7))^2, x2 = 7*(csc(4*Pi/7))^2, x3 = 7*(csc(8*Pi/7))^2.
a(n) = 56*a(n-1) - 784*a(n-2) + 3136*a(n-3) for n>2, a(0) = 3, a(1) = 56, a(2) = 1568.
G.f.: (3 - 28*x)*(1 - 28*x) / (1 - 56*x + 784*x^2 - 3136*x^3). - Colin Barker, May 25 2017

A287405 a(n) = (7*(cot(1*Pi/7))^2)^n + (7*(cot(2*Pi/7))^2)^n + (7*(cot(4*Pi/7))^2)^n.

Original entry on oeis.org

3, 35, 931, 27587, 830403, 25054435, 756187747, 22824258947, 688917131651, 20793986742179, 627637106311971, 18944339609269571, 571808137046942019, 17259221092289630307, 520945214725090792931, 15723995613526902256387, 474606601742375424297731
Offset: 0

Views

Author

Kai Wang, May 24 2017

Keywords

Comments

a(n) = x1^n + x2^n + x3^n, where x1, x2, x3 are the roots of x^3 - 35*x^2 + 147*x - 49, x1 = 7*(cot(1*Pi/7))^2, x2 = 7*(cot(2*Pi/7))^2, x3 = 7*(cot(4*Pi/7))^2.

Crossrefs

Programs

  • Mathematica
    LinearRecurrence[{35,-147,49},{3,35,931},30] (* Harvey P. Dale, Mar 15 2018 *)
  • PARI
    Vec((3 - 7*x)*(1 - 21*x) / (1 - 35*x + 147*x^2 - 49*x^3) + O(x^30)) \\ Colin Barker, May 26 2017
    
  • PARI
    polsym(x^3 - 35*x^2 + 147*x - 49, 20) \\ Joerg Arndt, May 26 2017

Formula

a(n) = 35*a(n-1) - 147*a(n-2) + 49*a(n-3), a(0) = 3, a(1) = 35, a(2) = 931.
Bisection of A215575: a(n) = A215575(2*n).
G.f.: (3 - 7*x)*(1 - 21*x) / (1 - 35*x + 147*x^2 - 49*x^3). - Colin Barker, May 26 2017

A322455 Sum of n-th powers of the roots of x^3 - 20*x^2 - 9*x - 1.

Original entry on oeis.org

3, 20, 418, 8543, 174642, 3570145, 72983221, 1491970367, 30499826474, 623497246004, 12745935328713, 260560681614770, 5326550547499821, 108888803019858063, 2225975576006274419, 45504837297851710768, 930239414944110543194, 19016557810138882535211
Offset: 0

Views

Author

Kai Wang, Dec 09 2018

Keywords

Comments

Let A = sin(2*Pi/7), B = sin(4*Pi/7), C = sin(8*Pi/7).
In general, for integer h, k let
X = (B^h*C^k)/A^(h+k),
Y = (C^h*A^k)/B^(h+k),
Z = (A^h*B^k)/C^(h+k).
then X, Y, Z are the roots of a monic equation
t^3 + a*t^2 + b*t + c = 0
where a, b, c are integers and c = 1 or -1.
Then X^n + Y^n + Z^n, n = 0, 1, 2, ... is an integer sequence.
This sequence has (h,k) = (1,3) and its other half is A320918.

Crossrefs

Similar sequences with (h,k) values: A033304 (0,1), A215076 (1,1), A274032 (1,2).

Programs

  • Mathematica
    CoefficientList[Series[(3 - 40*x - 9*x^2) / (1 - 20*x - 9*x^2 - x^3) , {x, 0, 50}], x] (* Amiram Eldar, Dec 09 2018 *)
  • PARI
    Vec((3 - 40*x - 9*x^2) / (1 - 20*x - 9*x^2 - x^3) + O(x^20)) \\ Colin Barker, Dec 09 2018
    
  • PARI
    polsym(x^3 - 20*x^2 - 9*x - 1, 25) \\ Joerg Arndt, Dec 17 2018

Formula

a(n) = (B*C^3/A^4)^n + (C*A^3/B^4)^n + (A*B^3/C^4)^n.
a(n) = 20*a(n-1) + 9*a(n-2) + a(n-3) for n > 2.
G.f.: (3 - 40*x - 9*x^2) / (1 - 20*x - 9*x^2 - x^3). - Colin Barker, Dec 09 2018

A322460 Sum of n-th powers of the roots of x^3 + 95*x^2 - 88*x - 1.

Original entry on oeis.org

3, -95, 9201, -882452, 84642533, -8118687210, 778722945402, -74693039645137, 7164358266796181, -687186244111463849, 65913082025027484446, -6322208017501153044901, 606409425694567846432994, -58165183833442021851601272, 5579050171430096545235179411
Offset: 0

Views

Author

Kai Wang, Dec 09 2018

Keywords

Comments

Let A = cos(2*Pi/7), B = cos(4*Pi/7), C = cos(8*Pi/7).
In general, for integer h, k let
X = A^(h+k)/(B^h*C^k),
Y = B^(h+k)/(C^h*A^k),
Z = C^(h+k)/(A^h*B^k).
then X, Y, Z are the roots of a monic equation
t^3 + a*t^2 + b*t + c = 0
where a, b, c are integers and c = 1 or -1.
Then X^n + Y^n + Z^n , n = 0, 1, 2, ... is an integer sequence.
This sequence has (h,k) = (1,3).

Crossrefs

Similar sequences with (h,k) values: A215076 (0,1), A274220 (1,0), A274663 (1,1), A248417 (1,2), A215560 (2,1).

Programs

  • Maple
    seq(coeff(series((3+190*x-88*x^2)/(1+95*x-88*x^2-x^3),x,n+1), x, n), n = 0 .. 20); # Muniru A Asiru, Dec 11 2018
  • Mathematica
    LinearRecurrence[{-95, 88, 1}, {3, -95, 9201}, 50] (* Amiram Eldar, Dec 09 2018 *)
  • PARI
    Vec((3 + 190*x - 88*x^2) / (1 + 95*x - 88*x^2 - x^3) + O(x^15)) \\ Colin Barker, Dec 09 2018
    
  • PARI
    polsym(x^3 + 95*x^2 - 88*x - 1, 25)  \\ Joerg Arndt, Dec 17 2018

Formula

a(n) = (A^4/(B*C^3))^n + (B^4/(C*A^3))^n + (C^4/(A*B^3))^n.
a(n) = -95*a(n-1) + 88*a(n-2) + a(n-3) for n>2.
G.f.: (3 + 190*x - 88*x^2) / (1 + 95*x - 88*x^2 - x^3). - Colin Barker, Dec 09 2018

A218664 Coefficients of cubic polynomials p(x+n), where p(x) = x^3 + x^2 - 2*x - 1.

Original entry on oeis.org

1, 1, -2, -1, 1, 4, 3, -1, 1, 7, 14, 7, 1, 10, 31, 29, 1, 13, 54, 71, 1, 16, 83, 139, 1, 19, 118, 239, 1, 22, 159, 377, 1, 25, 206, 559, 1, 28, 259, 791, 1, 31, 318, 1079, 1, 34, 383, 1429, 1, 37, 454, 1847, 1, 40, 531, 2339, 1, 43, 614, 2911, 1, 46, 703, 3569, 1, 49, 798, 4319
Offset: 0

Views

Author

Roman Witula, Nov 04 2012

Keywords

Comments

We have p(x) = (x - c(1))*(x - c(2))*(x - c(4)), where c(j) := 2*cos(2*Pi*j/7). We note that c(4) = c(3) = -c(1/2), c(1) = s(3) and c(2) = -s(1), where s(j) := 2*sin(Pi*j/14). Moreover we obtain -p(-x) = x^3 - x^2 - 2*x + 1 = (x + c(1))*(x + c(2))*(x + c(4)), q(x) := -x^3*p(1/x) = x^3 + 2*x^2 + x - 1 = (x - c(1)^(-1))*(x - c(2)^(-1))*(x - c(4)^(-1)), and -q(-x) = x^3 - 2*x^2 + x + 1 = (x + c(1)^(-1))*(x + c(2)^(-1))*(x + c(4)^(-1)).
We also have p(x+2) = x^3 + 7*x^2 + 14*x + 7 = (x + s(2)^2)*(x + s(4)^2)*(x + s(6)^2). The polynomial -p(-x-2) = x^3 - 7*x^2 + 14*x - 7 = (x - s(2)^2)*(x - s(4)^2)*(x - s(6)^2) is known as Johannes Kepler's cubic polynomial (see Witula's book).
Let us set r(x) := p(x+1). It can be verified that -x^3*r(1/x) = x^3 - 3*x^2 - 4*x - 1 = (x - c(1)/c(4))*(x - c(4)/c(2))*(x - c(2)/c(1)); for example, we have c(1)^3 + c(1)^2 - 2*c(1) - 1 = 0 which implies that c(1)^2 + 2*c(1) = 1/(c(1) - 1), and then c(1)^2 + 2*c(1) = c(4)/c(2) since c(4)/c(2) = (c(1)^4 - 4*c(1)^2 + 2)/(c(1)^2 - 2).
The polynomials p(x+n) and the ones obtained as above (i.e., after simple algebraic transformations) are the characteristic polynomials of many sequences in the OEIS; see crossrefs.

References

  • R. Witula, Complex Numbers, Polynomials and Partial Fraction Decomposition, Part 3, Wydawnictwo Politechniki Slaskiej, Gliwice 2010 (Silesian Technical University publishers).

Crossrefs

Formula

We have a(4*k) = 1, a(4*k + 1) = 3*k + 1, a(4*k + 2) = 3*k^2 + 2*k - 2, a(4*k + 3) = k^3 + k^2 - 2*k - 1. Further, the following relations hold true: b(k+1) = b(k) + 3, c(k+1) = 2*b(k) -2*c(k) + 3, d(k+1) = b(k) - 2*c(k) - d(k) + 1, where p(x + k) = x^3 + b(k)*x^2 + c(k)*x + d(k).
Empirical g.f.: -(x^15 - x^14 - 2*x^13 + x^12 - 5*x^11 + 10*x^10 + 3*x^9 - 3*x^8 - 3*x^7 - 11*x^6 + 3*x^4 + x^3 + 2*x^2 - x - 1) / ((x-1)^4*(x+1)^4*(x^2+1)^4). - Colin Barker, May 17 2013
Previous Showing 11-18 of 18 results.