A057088 -id:A057088 - cp's OEIS frontend

A129267 Triangle with T(n,k) = T(n-1,k-1) + T(n-1,k) - T(n-2,k-1) - T(n-2,k) and T(0,0)=1 .

1, 1, 1, 0, 1, 1, -1, -1, 1, 1, -1, -3, -2, 1, 1, 0, -2, -5, -3, 1, 1, 1, 2, -2, -7, -4, 1, 1, 1, 5, 7, -1, -9, -5, 1, 1, 0, 3, 12, 15, 1, -11, -6, 1, 1, -1, -3, 3, 21, 26, 4, -13, -7, 1, 1, -1, -7, -15, -3, 31, 40, 8, -15, -8, 1, 1

Offset: 0

Philippe Deléham, Jun 08 2007

Triangle T(n,k), 0<=k<=n, read by rows given by [1,-1,1,0,0,0,0,0,0,...] DELTA [1,0,0,0,0,0,...] where DELTA is the operator defined in A084938 . Riordan array (1/(1-x+x^2),(x*(1-x))/(1-x+x^2)); inverse array is (1/(1+x),(x/(1+x))*c(x/(1+x))) where c(x)is g.f. of A000108 .

Row sums are ( with the addition of a first row {0}): 0, 1, 2, 2, 0, -4, -8, -8, 0, 16, 32,... (see A009545). - Roger L. Bagula, Nov 15 2009

			Triangle begins:
   1;
   1,  1;
   0,  1,   1;
  -1, -1,   1,  1;
  -1, -3,  -2,  1,  1;
   0, -2,  -5, -3,  1,   1;
   1,  2,  -2, -7, -4,   1,   1;
   1,  5,   7, -1, -9,  -5,   1,   1;
   0,  3,  12, 15,  1, -11,  -6,   1,  1;
  -1, -3,   3, 21, 26,   4, -13,  -7,  1, 1;
  -1, -7, -15, -3, 31,  40,   8, -15, -8, 1, 1;

G. C. Greubel, Rows n = 0..100 of the triangle, flattened

Cf. A063967, A167925, A199324, A202503, A202551.

T:= proc(n, k) option remember;
      if k<0 or  k>n  then 0
    elif n=0 and k=0 then 1
    else T(n-1,k-1) + T(n-1,k) - T(n-2,k-1) - T(n-2,k)
      fi; end:
seq(seq(T(n, k), k=0..n), n=0..12); # G. C. Greubel, Mar 14 2020

m = {{a, 1}, {-1, 1}}; v[0]:= {0, 1}; v[n_]:= v[n] = m.v[n-1]; Table[CoefficientList[v[n][[1]], a], {n, 0, 10}]//Flatten (* Roger L. Bagula, Nov 15 2009 *)
T[n_, k_]:= T[n, k]= If[k<0 || k>n, 0, If[n==0 && k==0, 1, T[n-1, k-1] + T[n-1, k] - T[n-2, k-1] - T[n-2, k] ]]; Table[T[n, k], {n,0,12}, {k,0,n}]//Flatten (* G. C. Greubel, Mar 14 2020 *)

@CachedFunction
def T(n, k):
    if (k<0 or k>n): return 0
    elif (n==0 and k==0): return 1
    else: return T(n-1,k-1) + T(n-1,k) - T(n-2,k-1) - T(n-2,k)
[[T(n, k) for k in (0..n)] for n in (0..12)] # G. C. Greubel, Mar 14 2020

Sum{k=0..n} T(n,k)*x^k = { (-1)^n*A057093(n), (-1)^n*A057092(n), (-1)^n*A057091(n), (-1)^n*A057090(n), (-1)^n*A057089(n), (-1)^n*A057088(n), (-1)^n*A057087(n), (-1)^n*A030195(n+1), (-1)^n*A002605(n), A039834(n+1), A000007(n), A010892(n), A099087(n), A057083(n), A001787(n+1), A030191(n), A030192(n), A030240(n), A057084(n), A057085(n), A057086(n) } for x=-11, -10, ..., 8, 9, respectively .
Sum{k=0..n} T(n,k)*A000045(k) = A100334(n).
Sum{k=0..floor(n/2)} T(n-k,k) = A050935(n+2).
T(n,k)= Sum{j>=0} A109466(n,j)*binomial(j,k).
T(n,k) = (-1)^(n-k)*A199324(n,k) = (-1)^k*A202551(n,k) = A202503(n,n-k). - Philippe Deléham, Mar 26 2013
G.f.: 1/(1-x*y+x^2*y-x+x^2). - R. J. Mathar, Aug 11 2015

Riordan array definition corrected by Ralf Stephan, Jan 02 2014

A180250 a(n) = 5a(n-1) + 10a(n-2), with a(1)=0 and a(2)=1.

Original entry on oeis.org

0, 1, 5, 35, 225, 1475, 9625, 62875, 410625, 2681875, 17515625, 114396875, 747140625, 4879671875, 31869765625, 208145546875, 1359425390625, 8878582421875, 57987166015625, 378721654296875, 2473479931640625, 16154616201171875, 105507880322265625

Offset: 1

Vladimir Joseph Stephan Orlovsky, Jan 16 2011

Nathaniel Johnston, Table of n, a(n) for n = 1..500
Index entries for linear recurrences with constant coefficients, signature (5,10).

Cf. A001076, A006190, A007482, A015520, A015521, A015523, A015524, A015525, A015528, A015529, A015530, A015531, A015532, A015533, A015534, A015535, A015536, A015537, A015440, A015441, A015443, A015444, A015445, A015447, A030195, A053404, A057087, A057088, A083858, A085939, A090017, A091914, A099012, A180222, A180226.

[n le 2 select n-1 else 5*Self(n-1) +10*Self(n-2): n in [1..30]]; // G. C. Greubel, Jan 16 2018

Join[{a=0,b=1},Table[c=5*b+10*a;a=b;b=c,{n,100}]]
LinearRecurrence[{5,10}, {0,1}, 30] (* G. C. Greubel, Jan 16 2018 *)

a(n)=([0,1;10,5]^(n-1))[1,2] \\ Charles R Greathouse IV, Oct 03 2016

my(x='x+O('x^30)); concat([0], Vec(x^2/(1-5*x-10*x^2))) \\ G. C. Greubel, Jan 16 2018

A180250= BinaryRecurrenceSequence(5,10,0,1)
[A180250(n-1) for n in range(1,41)] # G. C. Greubel, Jul 21 2023

a(n) = ((5+sqrt(65))^(n-1) - (5-sqrt(65))^(n-1))/(2^(n-1)*sqrt(65)). - Rolf Pleisch, May 14 2011
G.f.: x^2/(1-5*x-10*x^2).
a(n) = (i*sqrt(10))^(n-1) * ChebyshevU(n-1, -i*sqrt(5/8)). - G. C. Greubel, Jul 21 2023

A015551 Expansion of x/(1 - 6x - 5x^2).

Original entry on oeis.org

0, 1, 6, 41, 276, 1861, 12546, 84581, 570216, 3844201, 25916286, 174718721, 1177893756, 7940956141, 53535205626, 360916014461, 2433172114896, 16403612761681, 110587537144566, 745543286675801, 5026197405777636

Offset: 0

Olivier Gérard

Let the generator matrix for the ternary Golay G_12 code be [I|B], where the elements of B are taken from the set {0,1,2}. Then a(n)=(B^n)1,2 for instance. - _Paul Barry, Feb 13 2004

Pisano period lengths: 1, 2, 4, 4, 1, 4, 42, 8, 12, 2, 10, 4, 12, 42, 4, 16, 96, 12, 360, 4, ... - R. J. Mathar, Aug 10 2012

Vincenzo Librandi, Table of n, a(n) for n = 0..1000
Lucyna Trojnar-Spelina, Iwona Włoch, On Generalized Pell and Pell-Lucas Numbers, Iranian Journal of Science and Technology, Transactions A: Science (2019), 1-7.
Index entries for linear recurrences with constant coefficients, signature (6,5).

Cf. A001076, A006190, A007482, A015520, A015521, A015523, A015524, A015525, A015528, A015529, A015530, A015531, A015532, A015533, A015534, A015535, A015536, A015537, A015440, A015441, A015443, A015444, A015445, A015447, A015548, A030195, A053404, A057087, A057088, A057089, A083858, A085939, A090017, A091914, A099012, A135030, A135032, A180222, A180226, A180250.

I:=[0,1]; [n le 2 select I[n] else 6*Self(n-1)+5*Self(n-2): n in [1..30]]; // Vincenzo Librandi, Nov 14 2011

Join[{a=0,b=1},Table[c=6*b+5*a;a=b;b=c,{n,100}]] (* Vladimir Joseph Stephan Orlovsky, Jan 16 2011 *)
CoefficientList[Series[x/(1-6x-5x^2),{x,0,20}],x] (* or *) LinearRecurrence[ {6,5},{0,1},30] (* Harvey P. Dale, Oct 30 2017 *)

a(n)=([0,1; 5,6]^n*[0;1])[1,1] \\ Charles R Greathouse IV, Oct 03 2016

[lucas_number1(n,6,-5) for n in range(0, 21)] # Zerinvary Lajos, Apr 24 2009

a(n) = 6*a(n-1) + 5*a(n-2).

a(n) = sqrt(14)*(3+sqrt(14))^n/28 - sqrt(14)*(3-sqrt(14))^n/28. - Paul Barry, Feb 13 2004

A180033 Eight white queens and one red queen on a 3 X 3 chessboard. G.f.: (1 + x)/(1 - 5x - 5x^2).

Original entry on oeis.org

1, 6, 35, 205, 1200, 7025, 41125, 240750, 1409375, 8250625, 48300000, 282753125, 1655265625, 9690093750, 56726796875, 332084453125, 1944056250000, 11380703515625, 66623798828125, 390022511718750, 2283231552734375

Offset: 0

Johannes W. Meijer, Aug 09 2010

The a(n) represent the number of n-move routes of a fairy chess piece starting in the corner and side squares (m = 1, 3, 7, 9; 2, 4, 6, 8) on a 3 X 3 chessboard. This fairy chess piece behaves like a white queen on the eight side and corner squares but on the central square the queen explodes with fury and turns into a red queen, see A180032.
The sequence above corresponds to 56 red queen vectors, i.e., A[5] vector, with decimal values between 47 and 488. The central squares lead for these vectors to A057088.
Inverse binomial transform of A004187 (without the leading 0).
Equals the INVERT transform of A086347 and the INVERTi transform of A180167. - Gary W. Adamson, Aug 14 2010

Vincenzo Librandi, Table of n, a(n) for n = 0..200
Jean-Paul Allouche, Jeffrey Shallit, and Manon Stipulanti, Combinatorics on words and generating Dirichlet series of automatic sequences, arXiv:2401.13524 [math.CO], 2025. See p. 14.
D. Birmajer, J. B. Gil, and M. D. Weiner, On the Enumeration of Restricted Words over a Finite Alphabet, J. Int. Seq. 19 (2016) # 16.1.3, Example 7.
Milan Janjic, On Linear Recurrence Equations Arising from Compositions of Positive Integers, Journal of Integer Sequences, Vol. 18 (2015), Article 15.4.7.
Index entries for linear recurrences with constant coefficients, signature (5,5).

Cf. A057088, A180032.

Cf. A086347, A180167. - Gary W. Adamson, Aug 14 2010

I:=[1,6]; [n le 2 select I[n] else 5*Self(n-1)+5*Self(n-2): n in [1..30]]; // Vincenzo Librandi, Nov 15 2011

with(LinearAlgebra): nmax:=20; m:=1; A[5]:= [0,0,0,1,0,1,1,1,1]: A:=Matrix([[0,1,1,1,1,0,1,0,1], [1,0,1,1,1,1,0,1,0], [1,1,0,0,1,1,1,0,1], [1,1,0,0,1,1,1,1,0], A[5], [0,1,1,1,1,0,0,1,1], [1,0,1,1,1,0,0,1,1], [0,1,0,1,1,1,1,0,1], [1,0,1,0,1,1,1,1,0]]): for n from 0 to nmax do B(n):=A^n: a(n):= add(B(n)[m,k],k=1..9): od: seq(a(n), n=0..nmax);

LinearRecurrence[{5,5},{1,6}, 30] (* Vincenzo Librandi, Nov 15 2011 *)

my(x='x+O('x^30)); Vec((1+x)/(1-5*x-5*x^2)) \\ G. C. Greubel, Apr 07 2019

((1+x)/(1-5*x-5*x^2)).series(x, 30).coefficients(x, sparse=False) # G. C. Greubel, Apr 07 2019

G.f.: (1+x)/(1 - 5*x - 5*x^2).
a(n) = 5*a(n-1) + 5*a(n-2) with a(0) = 1 and a(1) = 6.
a(n) = ((7+5*A)*A^(-n-1) + (7+5*B)*B^(-n-1))/45 with A = (-5+3*sqrt(5))/10 and B = (-5-3*sqrt(5))/10.
Limit_{k->oo} a(n+k)/a(k) = 2*5^(n/2)/(L(2*n) - F(2*n)*sqrt(5)) with L(n) = A000032(n) and F(n) = A000045(n).
Limit_{k->oo} a(2*n+k)/a(k) = 2*A000351(n)/(A056854(n) - 3*A004187(n)*sqrt(5)) for n >= 1.
Limit_{k->oo} a(2*n-1+k)/a(k) = 2*A000351(n)/(3*A049685(n-1)*sqrt(5) - 5*A033890(n-1)) for n >= 1.
a(n) = A057088(n+1)/5. a(2*n) = 5^n*F(4*(n+1))/3, a(2*n+1) = 5^n*L(2*(2*n+3))/3. - Ehren Metcalfe, Apr 04 2019
E.g.f.: exp(5*x/2)*(15*cosh(3*sqrt(5)*x/2) + 7*sqrt(5)*sinh(3*sqrt(5)*x/2))/15. - Stefano Spezia, Mar 17 2025

A180031 Number of n-move paths on a 3 X 3 chessboard of a queen starting or ending in the central square.

Original entry on oeis.org

1, 8, 48, 304, 1904, 11952, 74992, 470576, 2952816, 18528688, 116265968, 729559344, 4577924464, 28726097072, 180253881072, 1131078181936, 7097421958256, 44535735246768, 279458051899888, 1753576141473584

Offset: 0

Johannes W. Meijer, Aug 09 2010

The a(n) represent the number of n-move paths of a chess queen starting or ending in the central square (m = 5) on a 3 X 3 chessboard. The other squares lead to A180030.
To determine the a(n) we can either sum the components of the column vector A^n[k,m], with A the adjacency matrix of the queen's graph, or we can sum the components of the row vector A^n[m,k], see the Maple program.
Closely related with this sequence are the red queen sequences, see A180028 and A180032.
This sequence belongs to a family of sequences with g.f. (1+k*x)/(1 - 5*x - (k+5)*x^2). The members of this family that are red queen sequences are A180031 (k=3; this sequence), A152240 (k=2), A000400 (k=1), A057088 (k=0), A122690 (k=-1), A180036 (k=-2), A180038 (k=-3), A015449 (k=-4) and A000007 (k=-5). Other members of this family are A030221 (k= -6), 3*A109114 (k=-8), 4*A020989 (k=-9), 6*A166060 (k=-11).

Vincenzo Librandi, Table of n, a(n) for n = 0..200
Index entries for linear recurrences with constant coefficients, signature (5, 8).

I:=[1,8]; [n le 2 select I[n] else 5*Self(n-1)+8*Self(n-2): n in [1..30]]; // Vincenzo Librandi, Nov 15 2011

with(LinearAlgebra): nmax:=19; m:=5; A[5]:= [1,1,1,1,0,1,1,1,1]: A:=Matrix([[0,1,1,1,1,0,1,0,1], [1,0,1,1,1,1,0,1,0], [1,1,0,0,1,1,1,0,1], [1,1,0,0,1,1,1,1,0], A[5], [0,1,1,1,1,0,0,1,1], [1,0,1,1,1,0,0,1,1], [0,1,0,1,1,1,1,0,1], [1,0,1,0,1,1,1,1,0]]): for n from 0 to nmax do B(n):=A^n: a(n):= add(B(n)[m,k],k=1..9): od: seq(a(n), n=0..nmax);

LinearRecurrence[{5,8},{1,8},50] (* Vincenzo Librandi, Nov 15 2011 *)

G.f.: (1+3*x)/(1 - 5*x - 8*x^2).
a(n) = 5*a(n-1) + 8*a(n-2) with a(0) = 1 and a(1) = 8.
a(n) = ((A+11)*A^(-n-1) + (B+11)*B^(-n-1))/57 with A = (-5+sqrt(57))/16 and B = (-5-sqrt(57))/16.

A189800 a(n) = 6a(n-1) + 8a(n-2), with a(0)=0, a(1)=1.

Original entry on oeis.org

0, 1, 6, 44, 312, 2224, 15840, 112832, 803712, 5724928, 40779264, 290475008, 2069084160, 14738305024, 104982503424, 747801460736, 5326668791808, 37942424436736, 270267896954880, 1925146777223168, 13713023838978048, 97679317251653632, 695780094221746176

Offset: 0

Vladimir Joseph Stephan Orlovsky, May 24 2011

Vincenzo Librandi, Table of n, a(n) for n = 0..1000
Index entries for linear recurrences with constant coefficients, signature (6,8).

Sequences of the form a(n) = c*a(n-1) + d*a(n-2), with a(0)=0, a(1)=1:
c/d...1.......2.......3.......4.......5.......6.......7.......8.......9......10
.A000045,A001045,A006130,A006131,A015440,A015441,A015442,A015443,A015445,A015446
.A000129,A002605,A015518,A063727,A002532,A083099,A015519,A003683,A002534,A083102
.A006190,A007482,A030195,A015521,A015523,A083858,A015524,A015525,A099012,A015528
.A001076,A090017,A015530,A057087,A015531,A085939,A015532,A180222,A015533,A180226
.A052918,A015535,A015536,A015537,A057088,A015540,A015541,A015544,A015545,A180250
.A005668,A135030,A090018,A135032,A015551,A057089,A015552,A189800,A189801,A190005
.A054413,A015555,A015559,A015561,A015562,A015564,A057090,A015565,A015566,A015568
.A041025,A190331,A015574,A190510,A015575,A190560,A015576,A057091,A015577,A190953
.A099371,A015579,A181353,A015580,A015581,A153191,A015583,A015584,A057092,A015585
A041041,A191014,A015588,A190954,A190955,A190956,A015589,A190957,A015591,A057093

I:=[0,1]; [n le 2 select I[n] else 6*Self(n-1)+8*Self(n-2): n in [1..30]]; // Vincenzo Librandi, Nov 14 2011

LinearRecurrence[{6, 8}, {0, 1}, 50]
CoefficientList[Series[-(x/(-1+6 x+8 x^2)),{x,0,50}],x] (* Harvey P. Dale, Jul 26 2011 *)

a(n)=([0,1; 8,6]^n*[0;1])[1,1] \\ Charles R Greathouse IV, Oct 03 2016

G.f.: x/(1 - 2*x*(3+4*x)). - Harvey P. Dale, Jul 26 2011

A342120 Square array T(n,k), n>=0, k>=0, read by antidiagonals, where column k is the expansion of g.f. 1/(1 - kx - kx^2).

Original entry on oeis.org

1, 1, 0, 1, 1, 0, 1, 2, 2, 0, 1, 3, 6, 3, 0, 1, 4, 12, 16, 5, 0, 1, 5, 20, 45, 44, 8, 0, 1, 6, 30, 96, 171, 120, 13, 0, 1, 7, 42, 175, 464, 648, 328, 21, 0, 1, 8, 56, 288, 1025, 2240, 2457, 896, 34, 0, 1, 9, 72, 441, 1980, 6000, 10816, 9315, 2448, 55, 0

Offset: 0

Seiichi Manyama, Feb 28 2021

			Square array begins:
  1, 1,   1,   1,    1,    1, ...
  0, 1,   2,   3,    4,    5, ...
  0, 2,   6,  12,   20,   30, ...
  0, 3,  16,  45,   96,  175, ...
  0, 5,  44, 171,  464, 1025, ...
  0, 8, 120, 648, 2240, 6000, ...

Seiichi Manyama, Antidiagonals n = 0..139, flattened
Index entries for sequences related to Chebyshev polynomials.

Columns 0..10 give A000007, A000045(n+1), A002605(n+1), A030195(n+1), A057087, A057088, A057089, A057090, A057091, A057092, A057093.
Rows 0..2 give A000012, A001477, A002378.
Main diagonal gives A109516(n+1).
Cf. A342129, A342133, A342134.

T:= (n, k)-> (<<0|1>, >^(n+1))[1, 2]:
seq(seq(T(n, d-n), n=0..d), d=0..12);  # Alois P. Heinz, Mar 01 2021

T[n_, k_] := Sum[If[k == j == 0, 1, k^j] * Binomial[j, n - j], {j, 0, n}]; Table[T[k, n - k], {n, 0, 10}, {k, 0, n}] // Flatten (* Amiram Eldar, Apr 28 2021 *)

T(n, k) = sum(j=0, n\2, k^(n-j)*binomial(n-j, j));

T(n, k) = sum(j=0, n, k^j*binomial(j, n-j));

T(n, k) = round((-sqrt(k)*I)^n*polchebyshev(n, 2, sqrt(k)*I/2));

T(0,k) = 1, T(1,k) = k and T(n,k) = k*(T(n-1,k) + T(n-2,k)) for n > 1.
T(n,k) = Sum_{j=0..floor(n/2)} k^(n-j) * binomial(n-j,j) = Sum_{j=0..n} k^j * binomial(j,n-j).
T(n,k) = (-sqrt(k)*i)^n * S(n, sqrt(k)*i) with S(n, x) := U(n, x/2), Chebyshev's polynomials of the 2nd kind.

A015541 Expansion of x/(1 - 5x - 7x^2).

Original entry on oeis.org

0, 1, 5, 32, 195, 1199, 7360, 45193, 277485, 1703776, 10461275, 64232807, 394392960, 2421594449, 14868722965, 91294775968, 560554940595, 3441838134751, 21133075257920, 129758243232857, 796722742969725, 4891921417478624, 30036666288181195

Offset: 0

Olivier Gérard

Pisano period lengths: 1, 3, 8, 6, 8, 24, 6, 6, 24, 24, 5, 24, 12, 6, 8, 12, 16, 24, 120, 24, ... - R. J. Mathar, Aug 10 2012

Vincenzo Librandi, Table of n, a(n) for n = 0..1000
Index entries for linear recurrences with constant coefficients, signature (5,7).

Cf. A001076, A006190, A007482, A015520, A015521, A015523, A015524, A015525, A015528, A015529, A015530, A015531, A015532, A015533, A015534, A015535, A015536, A015537, A015443, A015447, A030195, A053404, A057087, A057088, A083858, A085939, A090017, A091914, A099012, A180222, A180226.

[n le 2 select n-1 else 5*Self(n-1) + 7*Self(n-2): n in [1..30]]; // Vincenzo Librandi, Nov 13 2012

Join[{a=0,b=1},Table[c=5*b+7*a;a=b;b=c,{n,100}]] (* Vladimir Joseph Stephan Orlovsky, Jan 16 2011 *)
LinearRecurrence[{5, 7}, {0, 1}, 30] (* Vincenzo Librandi, Nov 13 2012 *)

x='x+O('x^30); concat([0], Vec(x/(1-5*x-7*x^2))) \\ G. C. Greubel, Jan 24 2018

[lucas_number1(n,5,-7) for n in range(0, 21)] # Zerinvary Lajos, Apr 24 2009

a(n) = 5*a(n-1) + 7*a(n-2).

A015544 Lucas sequence U(5,-8): a(n+1) = 5a(n) + 8a(n-1), a(0)=0, a(1)=1.

Original entry on oeis.org

0, 1, 5, 33, 205, 1289, 8085, 50737, 318365, 1997721, 12535525, 78659393, 493581165, 3097180969, 19434554165, 121950218577, 765227526205, 4801739379641, 30130517107845, 189066500576353, 1186376639744525, 7444415203333449, 46713089134623445

Offset: 0

Olivier Gérard

Vincenzo Librandi, Table of n, a(n) for n = 0..1000
Index entries for linear recurrences with constant coefficients, signature (5,8).

Cf. A001076, A006190, A007482, A015520, A015521, A015523, A015524, A015525, A015528, A015529, A015530, A015531, A015532, A015533, A015534, A015535, A015536, A015537, A015441, A015443, A015447, A030195, A053404, A057087, A057088, A083858, A085939, A090017, A091914, A099012, A180222, A180226, A015555 (binomial transform).

[n le 2 select n-1 else 5*Self(n-1) + 8*Self(n-2): n in [1..30]]; // Vincenzo Librandi, Nov 13 2012

a[n_]:=(MatrixPower[{{1,2},{1,-6}},n].{{1},{1}})[[2,1]]; Table[Abs[a[n]],{n,-1,40}] (* Vladimir Joseph Stephan Orlovsky, Feb 19 2010 *)
LinearRecurrence[{5, 8}, {0, 1}, 30] (* Vincenzo Librandi, Nov 13 2012 *)

A015544(n)=imag((2+quadgen(57))^n) \\ M. F. Hasler, Mar 06 2009

x='x+O('x^30); concat([0], Vec(x/(1 - 5*x - 8*x^2))) \\ G. C. Greubel, Jan 01 2018

[lucas_number1(n,5,-8) for n in range(0, 21)] # Zerinvary Lajos, Apr 24 2009

a(n) = 5*a(n-1) + 8*a(n-2).

G.f.: x/(1 - 5*x - 8*x^2). - M. F. Hasler, Mar 06 2009

More precise definition by M. F. Hasler, Mar 06 2009

A087567 a(n) = (1/5)Sum_{k=0..n} binomial(n,k)Fibonacci(k)*5^k.

Original entry on oeis.org

1, 7, 68, 609, 5555, 50456, 458737, 4169823, 37904764, 344559985, 3132110411, 28471412592, 258809985953, 2352626740919, 21385776919540, 194400346514241, 1767132187070947, 16063531893267208, 146020234807218449, 1327348749622606095, 12065825708695393196

Offset: 0

Benoit Cloitre, Oct 25 2003

Index entries for linear recurrences with constant coefficients, signature (7,19).

Cf. A014445, A057088, A015553.

LinearRecurrence[{7,19},{1,7},25] (* Paolo Xausa, Jan 07 2024 *)

[lucas_number1(n,7,-19) for n in range(1, 20)] # Zerinvary Lajos, Apr 29 2009

a(n) = 7*a(n-1) + 19*a(n-2).

G.f.: 1 / (-19*x^2-7*x+1). - Colin Barker, Aug 08 2013

More terms from Colin Barker, Aug 08 2013

cp's OEIS Frontend

A129267 Triangle with T(n,k) = T(n-1,k-1) + T(n-1,k) - T(n-2,k-1) - T(n-2,k) and T(0,0)=1 .

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Sage

Formula

Extensions

A180250 a(n) = 5*a(n-1) + 10*a(n-2), with a(1)=0 and a(2)=1.

Views

Author

Keywords

Links

Crossrefs

Programs

Magma

Mathematica

PARI

PARI

SageMath

Formula

A015551 Expansion of x/(1 - 6*x - 5*x^2).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Magma

Mathematica

PARI

Sage

Formula

A180033 Eight white queens and one red queen on a 3 X 3 chessboard. G.f.: (1 + x)/(1 - 5*x - 5*x^2).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Magma

Maple

Mathematica

PARI

Sage

Formula

A180031 Number of n-move paths on a 3 X 3 chessboard of a queen starting or ending in the central square.

Views

Author

Keywords

Comments

Links

Programs

Magma

Maple

Mathematica

Formula

A189800 a(n) = 6*a(n-1) + 8*a(n-2), with a(0)=0, a(1)=1.

Views

Author

Keywords

Links

Crossrefs

Programs

Magma

Mathematica

PARI

Formula

A342120 Square array T(n,k), n>=0, k>=0, read by antidiagonals, where column k is the expansion of g.f. 1/(1 - k*x - k*x^2).

Views

Author

A180250 a(n) = 5a(n-1) + 10a(n-2), with a(1)=0 and a(2)=1.

A015551 Expansion of x/(1 - 6x - 5x^2).

A180033 Eight white queens and one red queen on a 3 X 3 chessboard. G.f.: (1 + x)/(1 - 5x - 5x^2).

A189800 a(n) = 6a(n-1) + 8a(n-2), with a(0)=0, a(1)=1.

A342120 Square array T(n,k), n>=0, k>=0, read by antidiagonals, where column k is the expansion of g.f. 1/(1 - kx - kx^2).

A015541 Expansion of x/(1 - 5x - 7x^2).

A015544 Lucas sequence U(5,-8): a(n+1) = 5a(n) + 8a(n-1), a(0)=0, a(1)=1.

A087567 a(n) = (1/5)Sum_{k=0..n} binomial(n,k)Fibonacci(k)*5^k.