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-3 of 3 results.

A203171 Alternating sum of the fourth powers of the first n even-indexed Fibonacci numbers.

Original entry on oeis.org

0, -1, 80, -4016, 190465, -8960160, 421021536, -19779631105, 929225609456, -43653851217680, 2050801968082945, -96344039926706496, 4526119083346841280, -212631252937414840321, 9989142769386670981520, -469277078911056723578480
Offset: 0

Views

Author

Stuart Clary, Dec 30 2011

Keywords

Comments

Natural bilateral extension (brackets mark index 0): ..., 8960160, -190465, 4016, -80, 1, 0, [0], -1, 80, -4016, 190465, -8960160, ... That is, a(-n) = -a(n-1).

Crossrefs

Programs

  • Maple
    with(combinat): A203171:=n->(-1)^n*(1/21)*fibonacci(2*n)*fibonacci(2*n+2)*(3*fibonacci(2*n+1)^2 - 5): seq(A203171(n), n=0..20); # Wesley Ivan Hurt, Jan 16 2017
  • Mathematica
    a[n_Integer] := (-1)^n (1/525)(3*LucasL[8n+4] - 28*LucasL[4n+2] + 63); Table[a[n], {n, 0, 20}]
  • PARI
    a(n) = sum(k=1, n, (-1)^k*fibonacci(2*k)^4); \\ Michel Marcus, Apr 16 2016

Formula

Let F(n) be the Fibonacci number A000045(n) and let L(n) be the Lucas number A000032(n).
a(n) = Sum_{k=1..n} (-1)^k * F(2*k)^4.
Closed form: a(n) = (-1)^n (1/525)(3 L(8n+4) - 28 L(4n+2) + 63).
Factored closed form: a(n) = (-1)^n (1/21) F(2n) F(2n+2) (3 F(2n+1)^2 - 5).
Alternate factored closed form: a(n) = (-1)^n (1/21) F(2n) F(2n+2) (3 F(2n) F(2n+2) - 2).
Recurrence: a(n) + 55 a(n-1) + 385 a(n-2) + 385 a(n-3) + 55 a(n-4) + a(n-5) = 0.
G.f.: A(x) = (-x + 25 x^2 - x^3)/(1 + 55 x + 385 x^2 + 385 x^3 + 55 x^4 + x^5) = -x(1 - 25 x + x^2)/((1 + x)(1 + 7 x + x^2)(1 + 47 x + x^2)).

A203169 Sum of the fourth powers of the first n even-indexed Fibonacci numbers.

Original entry on oeis.org

0, 1, 82, 4178, 198659, 9349284, 439330980, 20639983621, 969645224182, 45552722051318, 2140008541351943, 100534850436141384, 4722997973709689160, 221880369994471370761, 10423654392318557192602, 489689876072761951752602
Offset: 0

Views

Author

Stuart Clary, Dec 30 2011

Keywords

Comments

Natural bilateral extension (brackets mark index 0): ..., -9349284, -198659, -4178, -82, -1, 0, [0], 1, 82, 4178, 198659, 9349284, ... That is, a(-n) = -a(n-1).

Crossrefs

Programs

  • Mathematica
    a[n_Integer] := (1/75)(Fibonacci[8n+4] - 12*Fibonacci[4n+2] + 9*(2*n+1)); Table[a[n], {n, 0, 20}]

Formula

Let F(n) be the Fibonacci number A000045(n).
a(n) = sum_{k=1..n} F(2k)^4.
Closed form: a(n) = (1/75)(F(8n+4) - 12 F(4n+2) + 9(2 n + 1)).
Recurrence: a(n) - 56 a(n-1) + 440 a(n-2) - 770 a(n-3) + 440 a(n-4) - 56 a(n-5) + a(n-6) = 0.
G.f.: A(x) = (x + 26 x^2 + 26 x^3 + x^4)/(1 - 56 x + 440 x^2 - 770 x^3 + 440 x^4 - 56 x^5 + x^6) = x(1 + x)(1 + 25 x + x^2)/((1 - x)^2 (1 - 7 x + x^2)(1 - 47 x + x^2)).

A203170 Sum of the fourth powers of the first n odd-indexed Fibonacci numbers.

Original entry on oeis.org

0, 1, 17, 642, 29203, 1365539, 64107780, 3011403301, 141469813301, 6646055880582, 312223061019703, 14667837157106759, 689076118833981960, 32371909717271872585, 1520790680382055836761, 71444790066793903279242
Offset: 0

Views

Author

Stuart Clary, Dec 30 2011

Keywords

Comments

Natural bilateral extension (brackets mark index 0): ..., -1365539, -29203, -642, -17, -1, [0], 1, 17, 642, 29203, 1365539, ... That is, a(-n) = -a(n).

Crossrefs

Programs

  • Mathematica
    a[n_Integer] := (1/75)(Fibonacci[8n] + 12*Fibonacci[4n] + 18 n); Table[a[n], {n, 0, 20}]

Formula

Let F(n) be the Fibonacci number A000045(n).
a(n) = Sum_{k=1..n} F(2k-1)^4.
Closed form: a(n) = (1/75)(F(8n) + 12 F(4n) + 18 n).
Recurrence: a(n) - 56 a(n-1) + 440 a(n-2) - 770 a(n-3) + 440 a(n-4) - 56 a(n-5) + a(n-6) = 0.
G.f.: A(x) = (x - 39 x^2 + 130 x^3 - 39 x^4 + x^5)/(1 - 56 x + 440 x^2 - 770 x^3 + 440 x^4 - 56 x^5 + x^6) = x(1 - 39 x + 130 x^2 - 39 x^3 + x^4)/((1 - x)^2 (1 - 7 x + x^2)(1 - 47 x + x^2)).
Showing 1-3 of 3 results.