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

A119282 Alternating sum of the first n Fibonacci numbers.

Original entry on oeis.org

0, -1, 0, -2, 1, -4, 4, -9, 12, -22, 33, -56, 88, -145, 232, -378, 609, -988, 1596, -2585, 4180, -6766, 10945, -17712, 28656, -46369, 75024, -121394, 196417, -317812, 514228, -832041, 1346268, -2178310, 3524577, -5702888, 9227464, -14930353, 24157816, -39088170, 63245985, -102334156, 165580140, -267914297, 433494436, -701408734, 1134903169, -1836311904, 2971215072, -4807526977, 7778742048
Offset: 0

Views

Author

Stuart Clary, May 13 2006

Keywords

Comments

Apart from signs, same as A008346.
Natural bilateral extension (brackets mark index 0): ..., 88, 54, 33, 20, 12, 7, 4, 2, 1, 0, [0], -1, 0, -2, 1, -4, 4, -9, 12, -22, 3, ... This is A000071-reversed followed by A119282.
Alternating sums of rows of the triangle in A141169. - Reinhard Zumkeller, Mar 22 2011

Crossrefs

Programs

  • Magma
    [0] cat [(&+[(-1)^k*Fibonacci(k):k in [1..n]]): n in [1..30]]; // G. C. Greubel, Jan 17 2018
  • Mathematica
    FoldList[#1 - Fibonacci@ #2 &, -Range@ 50] (* Michael De Vlieger, Jan 27 2016 *)
    Accumulate[Table[(-1)^n Fibonacci[n], {n, 0, 49}]] (* Alonso del Arte, Apr 25 2017 *)
  • PARI
    a(n) = sum(k=1, n, (-1)^k*fibonacci(k)); \\ Michel Marcus, Jan 27 2016
    

Formula

Let F(n) be the Fibonacci number A000045(n).
a(n) = Sum_{k = 1..n} (-1)^k F(k).
Closed form: a(n) = (-1)^n F(n-1) - 1 = (-1)^n A008346(n-1).
Recurrence: a(n) - 2 a(n-2) + a(n-3)= 0.
G.f.: A(x) = -x/(1 - 2 x^2 + x^3) = -x/((1 - x)(1 + x - x^2)).
Another recurrence: a(n) = a(n-2) - a(n-1) - 1. - Rick L. Shepherd, Aug 12 2009

A119283 Alternating sum of the squares of the first n Fibonacci numbers.

Original entry on oeis.org

0, -1, 0, -4, 5, -20, 44, -125, 316, -840, 2185, -5736, 15000, -39289, 102840, -269260, 704909, -1845500, 4831556, -12649205, 33116020, -86698896, 226980625, -594243024, 1555748400, -4073002225, 10663258224, -27916772500, 73087059221, -191344405220, 500946156380, -1311494063981, 3433536035500, -8989114042584, 23533806092185, -61612304234040
Offset: 0

Views

Author

Stuart Clary, May 13 2006

Keywords

Comments

Natural bilateral extension (brackets mark index 0): ..., 840, -316, 125, -44, 20, -5, 4, 0, 1, 0, [0], -1, 0, -4, 5, -20, 44, -125, 316, -840, 2185, ... This is (-A119283)-reversed followed by A119283.

Examples

			The first few squares of Fibonacci numbers are: 0, 1, 1, 4, 9, 25, 64, 169.
a(0) = 0.
a(1) = 0 - 1 = -1.
a(2) = 0 - 1 + 1 = 0.
a(3) = 0 - 1 + 1 - 4 = -4.
a(4) = 0 - 1 + 1 - 4 + 9 = 5.
		

Crossrefs

Programs

  • Mathematica
    altFiboSqSum[n_Integer] := If[n >= 0, Sum[(-1)^k Fibonacci[k]^2, {k, n}], Sum[-(-1)^k Fibonacci[-k]^2, {k, 1, -n - 1}]]; altFiboSqSum[Range[0, 39]] (* Clary *)
    Accumulate[Table[(-1)^n Fibonacci[n]^2, {n, 0, 39}]] (* Alonso del Arte, Apr 25 2017 *)
    Accumulate[Times@@@Partition[Riffle[Fibonacci[Range[0,40]]^2,{1,-1},{2,-1,2}],2]] (* Harvey P. Dale, Jul 29 2024 *)
  • PARI
    concat(0, Vec(-x*(1 + x) / ((1 - x)^2*(1 + 3*x + x^2)) + O(x^40))) \\ Colin Barker, Apr 25 2017

Formula

Let F(n) be the Fibonacci number A000045(n).
a(n) = Sum_{k = 1..n} (-1)^k F(k)^2.
Closed form: a(n) = (-1)^n F(2n+1)/5 - (2 n + 1)/5.
Recurrence: a(n) + a(n-1) - 4 a(n-2) + a(n-3) + a(n-4) = 0.
G.f.: A(x) = (-x - x^2)/(1 + x - 4 x^2 + x^3 + x^4) = -x(1 + x)/((1 - x)^2 (1 + 3 x + x^2)).
a(n) = ( -1-2*n+(-1)^n*( A001906(n+1)-A001906(n) ))/5. - R. J. Mathar, Nov 16 2007
a(n) = (2^(-1-n)*(-5*2^(1+n)+5*(-3+sqrt(5))^n - sqrt(5)*(-3+sqrt(5))^n + (-3-sqrt(5))^n*(5+sqrt(5)) - 5*2^(2+n)*n)) / 25. - Colin Barker, Apr 25 2017

A119284 Alternating sum of the cubes of the first n Fibonacci numbers.

Original entry on oeis.org

0, -1, 0, -8, 19, -106, 406, -1791, 7470, -31834, 134541, -570428, 2415556, -10233781, 43348852, -183632148, 777872655, -3295130518, 13958382186, -59128679555, 250473067570, -1061021002966, 4494556993465, -19039249115928, 80651553232104, -341645462408521, 1447233402276936, -6130579072469696, 25969549690613035, -110008777837417954, 466004661036246046
Offset: 0

Views

Author

Stuart Clary, May 13 2006

Keywords

Comments

Natural bilateral extension (brackets mark index 0): ..., 674, 162, 37, 10, 2, 1, 0, [0], -1, 0, -8, 19, -106, 406, -1791, ... This is A005968-reversed followed by A119284.

Crossrefs

Programs

  • Mathematica
    a[n_Integer] := If[ n >= 0, Sum[ (-1)^k Fibonacci[k]^3, {k, 1, n} ], Sum[ -(-1)^k Fibonacci[ -k]^3, {k, 1, -n - 1} ] ]
    Accumulate[Times@@@Partition[Riffle[Fibonacci[Range[0,30]]^3,{1,-1},{2,-1,2}],2]] (* or *) LinearRecurrence[{-2,9,-3,-4,1},{0,-1,0,-8,19},40] (* Harvey P. Dale, Aug 23 2020 *)

Formula

Let F(n) be the Fibonacci number A000045(n).
a(n) = Sum_{k=1..n} (-1)^k F(k)^3.
Closed form: a(n) = (-1)^n F(3n+1)/10 - 3 F(n+2)/5 + 1/2.
Recurrence: a(n) + 2 a(n-1) - 9 a(n-2) + 3 a(n-3) + 4 a(n-4) - a(n-5) = 0.
G.f.: A(x) = (-x - 2 x^2 + x^3)/(1 + 2 x - 9 x^2 + 3 x^3 + 4 x^4 - x^5) = x(-1 - 2 x + x^2)/((1 - x)(1 - x - x^2 )(1 + 4 x - x^2)).

A119285 Alternating sum of the fourth powers of the first n Fibonacci numbers.

Original entry on oeis.org

0, -1, 0, -16, 65, -560, 3536, -25025, 169456, -1166880, 7983745, -54758496, 375223200, -2572072321, 17628580320, -120829829680, 828175410881, -5676410656400, 38906666170736, -266670338968385, 1827785480332240, -12527828615754816, 85867013279034625, -588541268397840576, 4033921854875707200, -27648911743562183425
Offset: 0

Views

Author

Stuart Clary, May 13 2006

Keywords

Comments

Natural bilateral extension (brackets mark index 0): ..., -3536, 560, -65, 16, 0, 1, 0, [0], -1, 0, -16, 65, -560, 3536, -25025, ... This is (-A119285)-reversed followed by A119285.

Crossrefs

Programs

  • Mathematica
    a[n_Integer] := If[ n >= 0, Sum[ (-1)^k Fibonacci[k]^4, {k, 1, n} ], Sum[ -(-1)^k Fibonacci[ -k]^4, {k, 1, -n - 1} ] ]
    LinearRecurrence[{-5,15,15,-5,-1},{0,-1,0,-16,65},30] (* Harvey P. Dale, Apr 02 2018 *)

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(k)^4.
Closed form: a(n) = (-1)^n L(4n+2)/75 - (4/25) L(2n+1) + (-1)^n 3/25.
Factored closed form: a(n) = (-1)^n (1/3) F(n-2) F(n) F(n+1) F(n+3).
Recurrence: a(n) + 5 a(n-1) - 15 a(n-2) - 15 a(n-3) + 5 a(n-4) + a(n-5) = 0.
G.f.: A(x) = (-x - 5 x^2 - x^3)/(1 + 5 x - 15 x^2 - 15 x^3 + 5 x^4 + x^5) = -x(1 + 5 x + x^2)/((1 + x)(1 - 3 x + x^2)(1 + 7 x + x^2)).

A119286 Alternating sum of the fifth powers of the first n Fibonacci numbers.

Original entry on oeis.org

0, -1, 0, -32, 211, -2914, 29854, -341439, 3742662, -41692762, 461591613, -5122467836, 56794896388, -629924960005, 6985721085652, -77473909014348, 859194263419359, -9528629686028398, 105674040835291026, -1171943417651373875, 12997050199917354250, -144139501695851560726, 1598531543102764228825, -17727986584911448406232, 196606383515036414871336, -2180398207207766329269289
Offset: 0

Views

Author

Stuart Clary, May 13 2006

Keywords

Comments

Natural bilateral extension (brackets mark index 0): ..., 3402, 277, 34, 2, 1, 0, [0], -1, 0, -32, 211, -2914, 29854, ... This is A098531-reversed followed by A119286.

Crossrefs

Programs

  • Mathematica
    a[n_Integer] := If[ n >= 0, Sum[ (-1)^k Fibonacci[k]^5, {k, 1, n} ], Sum[ -(-1)^k Fibonacci[ -k]^5, {k, 1, -n - 1} ] ]
    LinearRecurrence[{-7,48,20,-100,32,9,-1},{0,-1,0,-32,211,-2914,29854},30] (* Harvey P. Dale, Jun 24 2018 *)

Formula

Let F(n) be the Fibonacci number A000045(n).
a(n) = Sum_{k=1..n} (-1)^k F(k)^5.
Closed form: a(n) = (-1)^n (1/275)(F(5n+1) + 2 F(5n+3)) - (1/10) F(3n+2) + (-1)^n (2/5) F(n-1) - 7/22; here F(5n+1) + 2 F(5n+3) = A001060(5n+1) = A013655(5n+2).
Recurrence: a(n) + 7 a(n-1) - 48 a(n-2) - 20 a(n-3) + 100 a(n-4) - 32 a(n-5) - 9 a(n-6) + a(n-7) = 0.
G.f.: A(x) = (-x - 7 x^2 + 16 x^3 + 7 x^4 - x^5)/(1 + 7 x - 48 x^2 - 20 x^3 + 100 x^4 - 32 x^5 - 9 x^6 + x^7) = -x(1 + 7 x - 16 x^2 - 7 x^3 + x^4)/((1 - x)(1 + x - x^2)(1 - 4 x - x^2)(1 + 11 x - x^2)).

A119287 Alternating sum of the sixth powers of the first n Fibonacci numbers.

Original entry on oeis.org

0, -1, 0, -64, 665, -14960, 247184, -4579625, 81186496, -1463617920, 26217022705, -470764268256, 8445336180000, -151560390359569, 2719538168853120, -48800836192146880, 875690649999921929, -15713664197268146000, 281970036429821245616, -5059748557502924705465, 90793493265349521060160, -1629223203785737022267136, 29235223670642547226470625
Offset: 0

Views

Author

Stuart Clary, May 13 2006

Keywords

Comments

Natural bilateral extension (brackets mark index 0): ..., 14960, -665, 64, 0, 1, 0, [0], -1, 0, -64, 665, -14960, 247184, ... This is (-A119287)-reversed followed by A119287.

Crossrefs

Programs

  • Mathematica
    a[n_Integer] := If[ n >= 0, Sum[ (-1)^k Fibonacci[k]^6, {k, 1, n} ], Sum[ -(-1)^k Fibonacci[ -k]^6, {k, 1, -n - 1} ] ]
    Accumulate[Times@@@Partition[Riffle[Fibonacci[Range[0,30]]^6,{1,-1},{2,-1,2}],2]] (* Harvey P. Dale, Jul 23 2013 *)

Formula

Let F(n) be the Fibonacci number A000045(n).
a(n) = Sum_{k=1..n} (-1)^k F(k)^6.
a(n) = (-1)^n (1/250) F(6n+3) - (6/125) F(4n+2) + (-1)^n (3/25) F(2n+1) - (2/25)(2 n + 1).
Recurrence: a(n) + 12 a(n-1) - 117 a(n-2) - 156 a(n-3) + 520 a(n-4) - 156 a(n-5) - 117 a(n-6) + 12 a(n-7) + a(n-8) = 0.
G.f.: A(x) = (-x - 12 x^2 + 53 x^3 + 53 x^4 - 12 x^5 - x^6)/(1 + 12 x - 117 x^2 - 156 x^3 + 520 x^4 - 156 x^5 - 117 x^6 + 12 x^7 + x^8) = -x(1 + x)(1 + 11 x - 64 x^2 + 11 x^3 + x^4)/((1 - x)^2 (1 + 3 x + x^2)(1 - 7 x + x^2)(1 + 18 x + x^2)).

A128696 Alternating sum of the seventh powers of the first n Fibonacci numbers.

Original entry on oeis.org

0, -1, 0, -128, 2059, -76066, 2021086, -60727431, 1740361110, -50782989034, 1471652245341, -42759682650188, 1241158781898676, -36040175501820901, 1046363981321362852, -30381064378888637148, 882092032492683277335, -25611107658594421205278, 743603574761804566730466, -21590121866471006254739195, 626857059065125789349713930
Offset: 0

Views

Author

Stuart Clary, Mar 23 2007

Keywords

Comments

Natural bilateral extension (brackets mark index 0): ..., 2177594, 80442, 2317, 130, 2, 1, 0, [0], -1, 0, -128, 2059, -76066, 2021086 ... This is A098533-reversed followed by A128696.

Crossrefs

Programs

  • Magma
    [(&+[(-1)^k*Fibonacci(k)^7: k in [0..n]]): n in [0..30]]; // G. C. Greubel, Jan 17 2018
  • Mathematica
    a[ n_Integer ] := If[ n >= 0, Sum[ (-1)^k Fibonacci[ k ]^7, {k, 1, n} ], Sum[ -(-1)^k Fibonacci[ -k ]^7, {k, 1, -n - 1} ] ]
    Accumulate[Times@@@Partition[Riffle[Fibonacci[Range[0,30]]^7,{1,-1}], 2]] (* Harvey P. Dale, May 11 2012 *)
  • PARI
    a(n) = sum(k=1, n, (-1)^k*fibonacci(k)^7); \\ Michel Marcus, Dec 10 2016
    

Formula

Let F(n) be the Fibonacci number A000045(n).
a(n) = Sum_{k=1..n} (-1)^k F(k)^7.
Closed form: a(n) = (-1)^n (F(7n+7) - F(7n))/3625 + 7(F(5n+1) - 2 F(5n+4))/1375 + (-1)^n 21 F(3n+1)/250 - 7 F(n+2)/25 + 139/638.
Recurrence: a(n) + 20 a(n-1) - 294 a(n-2) - 819 a(n-3) + 2912 a(n-4) - 728 a(n-5) - 1365 a(n-6) + 252 a(n-7) + 22 a(n-8) - a(n-9) = 0.
G.f.: A(x) = (-x - 20 x^2 + 166 x^3 + 318 x^4 - 166 x^5 - 20 x^6 + x^7)/(1 + 20 x - 294 x^2 - 819 x^3 + 2912 x^4 - 728 x^5 - 1365 x^6 + 252 x^7 + 22 x^8 - x^9) = -x*(1 + 20 x - 166 x^2 - 318 x^3 + 166 x^4 + 20 x^5 - x^6)/ ((1 - x)*(1 - x - x^2)*(1 + 4 x - x^2)*(1 - 11 x - x^2)*(1 + 29 x - x^2)).

A128697 Sum of the eighth powers of the first n Fibonacci numbers.

Original entry on oeis.org

0, 1, 2, 258, 6819, 397444, 17174660, 832905381, 38655764742, 1824449669638, 85558387560263, 4022147193262344, 188906406088298760, 8875457294194960201, 416941824416535235082, 19587673124144635235082, 920198619736386114829803, 43229838526402491973562764, 2030880577900713476799525260, 95408186647695095521364177901, 4482153365649947417785489568526
Offset: 0

Views

Author

Stuart Clary, Mar 23 2007

Keywords

Comments

Natural bilateral extension (brackets mark index 0): ..., -17174660, -397444, -6819, -258, -2, -1, 0, [0], 1, 2, 258, 6819, 397444, 17174660, ... This is (-A128697)-reversed followed by A128697.

Crossrefs

Cf. A128698 (alternating sum).
Sums of other powers: A000071, A001654, A005968, A005969, A098531, A098532, A098533.

Programs

  • Magma
    [(&+[Fibonacci(k)^8: k in [0..n]]): n in [0..30]]; // G. C. Greubel, Jan 17 2018
  • Mathematica
    a[ n_Integer ] := If[ n >= 0, Sum[ Fibonacci[ k ]^8, {k, 1, n} ], Sum[ -Fibonacci[ -k ]^8, {k, 1, -n - 1} ] ]
    Accumulate[Fibonacci[Range[0,20]]^8] (* Harvey P. Dale, Oct 26 2011 *)
  • PARI
    a(n) = sum(k=1, n, fibonacci(k)^8); \\ Michel Marcus, Dec 10 2016
    

Formula

Let F(n) be the Fibonacci number A000045(n).
a(n) = Sum_{k=1..n} F(k)^8.
Closed form: a(n) = F(8n+4)/1875 - (-1)^n 4 F(6n+3)/625 + 28 F(4n+2)/625 - (-1)^n 56 F(2n+1)/625 + 7(2 n + 1)/125.
Recurrence: a(n) - 35 a(n-1) - 680 a(n-2) + 5355 a(n-3) + 7735 a(n-4) - 24752 a(n-5) + 7735 a(n-6) + 5355 a(n-7) - 680 a(n-8) - 35 a(n-9) + a(n-10) = 0.
G.f.: A(x) = (x - 33 x^2 - 492 x^3 + 1784 x^4 + 1784 x^5 - 492 x^6 - 33 x^7 + x^8)/(1 - 35 x - 680 x^2 + 5355 x^3 + 7735 x^4 - 24752 x^5 + 7735 x^6 + 5355 x^7 - 680 x^8 - 35 x^9 + x^10) = x*(1 + x)*(1 - 34 x - 458 x^2 + 2242 x^3 - 458 x^4 - 34 x^5 + x^6)/((1 - x)^2*(1 + 3 x + x^2)*(1 - 7 x + x^2)*(1 + 18 x + x^2)*(1 - 47 x + x^2)).
Showing 1-8 of 8 results.