A053404 -id:A053404 - cp's OEIS frontend

A065874 a(n) = (7^(n+1) - (-6)^(n+1))/13.

1, 1, 43, 85, 1891, 5461, 84883, 314245, 3879331, 17077621, 180009523, 897269605, 8457669571, 46142992981, 401365114963, 2339370820165, 19196705648611, 117450280095541, 923711917337203, 5856623681349925, 44652524209512451, 290630718826209301, 2166036735625732243

Offset: 0

Len Smiley, Dec 07 2001

A second-order recurrence of promic type (integer roots).
If the number j = A002378(m) is promic (= i(i+1)), then a(n) = a(n-1) + j*a(n-2), a(0) = a(1) = 1 has a closed-form solution involving only powers of integers. The binomial coefficient sum solves the recurrence regardless of promicity (cf. GKP reference).
Hankel transform is := 1,42,0,0,0,0,0,0,0,0,0,0,... - Philippe Deléham, Nov 02 2008

R. L. Graham, D. E. Knuth, O. Patashnik, "Concrete Mathematics", Addison-Wesley, 1994, p. 204.

Harry J. Smith, Table of n, a(n) for n = 0..150
Index entries for linear recurrences with constant coefficients, signature (1,42).

Cf. A001045 (j=2), A015441 (j=6), A053404 (j=12), A053428 (j=20), A053430 (j=30).

Maple
```
n->sum(binomial(n-k, k)*(42)^k, k=0..n)
```

LinearRecurrence[{1,42},{1,1},30] (* Harvey P. Dale, Apr 30 2017 *)

a(n) = { (7^(n+1) - (-6)^(n+1))/13 } \\ Harry J. Smith, Nov 02 2009

a(n) = a(n-1) + 42a(n-2); a(0) = a(1) = 1.

G.f.: -1/((6*x+1)*(7*x-1)). - R. J. Mathar, Nov 16 2007

A109447 Binomial coefficients C(n,k) with n-k odd, read by rows.

Original entry on oeis.org

1, 2, 1, 3, 4, 4, 1, 10, 5, 6, 20, 6, 1, 21, 35, 7, 8, 56, 56, 8, 1, 36, 126, 84, 9, 10, 120, 252, 120, 10, 1, 55, 330, 462, 165, 11, 12, 220, 792, 792, 220, 12, 1, 78, 715, 1716, 1287, 286, 13, 14, 364, 2002, 3432, 2002, 364, 14, 1, 105, 1365, 5005, 6435, 3003, 455, 15

Offset: 1

Philippe Deléham, Aug 27 2005

The same as A119900 without 0's. A reflected version of A034867 or A202064. - Alois P. Heinz, Feb 07 2014
From Vladimir Shevelev, Feb 07 2014: (Start)
Also table of coefficients of polynomials  P_1(x)=1, P_2(x)=2, for n>=2, P_(n+1)(x) = 2*P_n(x)+(x-1)* P_(n-1)(x).  The polynomials P_n(x)/2^(n-1) are connected with sequences A000045 (x=5), A001045 (x=9), A006130 (x=13), A006131 (x=17), A015440 (x=21), A015441 (x=25), A015442 (x=29), A015443 (x=33), A015445 (x=37), A015446 (x=41), A015447 (x=45), A053404 (x=49); also the polynomials P_n(x) are connected with sequences A000129, A002605, A015518, A063727, A085449, A002532, A083099, A015519, A003683, A002534, A083102, A015520. (End)

			Starred terms in Pascal's triangle (A007318), read by rows:
1;
1*, 1;
1, 2*, 1;
1*, 3, 3*, 1;
1, 4*, 6, 4*, 1;
1*, 5, 10*, 10, 5*, 1;
1, 6*, 15, 20*, 15, 6*, 1;
1*, 7, 21*, 35, 35*, 21, 7*, 1;
1, 8*, 28, 56*, 70, 56*, 28, 8*, 1;
1*, 9, 36*, 84, 126*, 126, 84*, 36, 9*, 1;
Triangle T(n,k) begins:
1;
2;
1,    3;
4,    4;
1,   10,  5;
6,   20,  6;
1,   21,  35,   7;
8,   56,  56,   8;
1,   36, 126,  84,  9;
10, 120, 252, 120, 10;

Alois P. Heinz, Rows n = 1..200, flattened

Cf. A109446.

T:= (n, k)-> binomial(n, 2*k+1-irem(n, 2)):
seq(seq(T(n, k), k=0..ceil((n-2)/2)), n=1..20);  # Alois P. Heinz, Feb 07 2014

Flatten[ Table[ If[ OddQ[n - k], Binomial[n, k], {}], {n, 0, 15}, {k, 0, n}]] (* Robert G. Wilson v *)

More terms from Robert G. Wilson v, Aug 30 2005

Corrected offset by Alois P. Heinz, Feb 07 2014

A128100 Triangle read by rows: T(n,k) is the number of ways to tile a 2 X n rectangle with k pieces of 2 X 2 tiles and n-2k pieces of 1 X 2 tiles (0 <= k <= floor(n/2)).

Original entry on oeis.org

1, 1, 2, 1, 3, 2, 5, 5, 1, 8, 10, 3, 13, 20, 9, 1, 21, 38, 22, 4, 34, 71, 51, 14, 1, 55, 130, 111, 40, 5, 89, 235, 233, 105, 20, 1, 144, 420, 474, 256, 65, 6, 233, 744, 942, 594, 190, 27, 1, 377, 1308, 1836, 1324, 511, 98, 7, 610, 2285, 3522, 2860, 1295, 315, 35, 1, 987, 3970

Offset: 0

Emeric Deutsch, Feb 18 2007

Row sums are the Jacobsthal numbers (A001045). Column 0 yields the Fibonacci numbers (A000045); the other columns yield convolved Fibonacci numbers (A001629, A001628, A001872, A001873, etc.). Sum_{k=0..floor(n/2)} k*T(n,k) = A073371(n-2).
Triangle T(n,k), with zeros omitted, given by (1, 1, -1, 0, 0, 0, 0, 0, 0, 0, ...) DELTA (0, 1, -1, 0, 0, 0, 0, 0, 0, 0, ...) where DELTA is the operator defined in A084938. - Philippe Deléham, Jan 24 2012
Riordan array (1/(1-x-x^2), x^2/(1-x-x^2)), with zeros omitted. - Philippe Deléham, Feb 06 2012
Diagonal sums are A000073(n+2) (tribonacci numbers). - Philippe Deléham, Feb 16 2014
Number of induced subgraphs of the Fibonacci cube Gamma(n-1) that are isomorphic to the hypercube Q_k. Example: row n=4 is 5, 5, 1; indeed, the Fibonacci cube Gamma(3) is a square with an additional pendant edge attached to one of its vertices; it has 5 vertices (i.e., Q_0's), 5 edges (i.e., Q_1's) and 1 square (i.e., Q_2). - Emeric Deutsch, Aug 12 2014
Row n gives the coefficients of the polynomial p(n,x) defined as the numerator of the rational function given by f(n,x) = 1 + (x + 1)/f(n-1,x), where f(x,0) = 1. Conjecture: for n > 2, p(n,x) is irreducible if and only if n is a (prime - 2). - Clark Kimberling, Oct 22 2014

			Triangle starts:
   1;
   1;
   2,  1;
   3,  2;
   5,  5,  1;
   8, 10,  3;
  13, 20,  9,  1;
  21, 38, 22,  4;
From _Philippe Deléham_, Jan 24 2012: (Start)
Triangle (1, 1, -1, 0, 0, ...) DELTA (0, 1, -1, 0, 0, 0, ...) begins:
   1;
   1,  0;
   2,  1,  0;
   3,  2,  0,  0;
   5,  5,  1,  0,  0;
   8, 10,  3,  0,  0,  0;
  13, 20,  9,  1,  0,  0,  0;
  21, 38, 22,  4,  0,  0,  0,  0; (End)
From _Clark Kimberling_, Oct 22 2014: (Start)
Here are the first 4 polynomials p(n,x) as in Comment and generated by Mathematica program:
  1
  2 +  x
  3 + 2x
  5 + 5x + x^2. (End)

C.-P. Chou and H. A. Witek, An Algorithm and FORTRAN Program for Automatic Computation of the Zhang-Zhang Polynomial of Benzenoids, MATCH: Commun. Math. Comput. Chem, 68 (2012) 3-30. See Eq. (9). - From _N. J. A. Sloane_, Dec 23 2012
S. Klavzar, M. Mollard, Cube polynomial of Fibonacci and Lucas cubes, preprint.
S. Klavzar, M. Mollard, Cube polynomial of Fibonacci and Lucas cubes, Acta Appl. Math. 117, 2012, 93-105. - _Emeric Deutsch_, Aug 12 2014

Cf. A001045, A000045, A001629, A001628, A001872, A001873, A073371.

Cf. A109466, A119473.

G:=1/(1-z-(1+t)*z^2): Gser:=simplify(series(G,z=0,19)): for n from 0 to 16 do P[n]:=sort(coeff(Gser,z,n)) od: for n from 0 to 16 do seq(coeff(P[n],t,j),j=0..floor(n/2)) od; # yields sequence in triangular form

p[x_, n_] := 1 + (x + 1)/p[x, n - 1]; p[x_, 1] = 1;
Numerator[Table[Factor[p[x, n]], {n, 1, 20}]]  (* Clark Kimberling, Oct 22 2014 *)

G.f.: 1/(1-z-(1+t)z^2).
Sum_{k=0..n} T(n,k)*x^k = A053404(n), A015447(n), A015446(n), A015445(n), A015443(n), A015442(n), A015441(n), A015440(n), A006131(n), A006130(n), A001045(n+1), A000045(n+1), A000012(n), A010892(n), A107920(n+1), A106852(n), A106853(n), A106854(n), A145934(n), A145976(n), A145978(n), A146078(n), A146080(n), A146083(n), A146084(n) for x = 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1, 0, -1, -2, -3, -4, -5, -6, -7, -8, -9, -10, -11, -12, and -13, respectively. - Philippe Deléham, Jan 24 2012
T(n,k) = T(n-1,k) + T(n-2,k) + T(n-2,k-1). - Philippe Deléham, Jan 24 2012
G.f.: T(0)/2, where T(k) = 1 + 1/(1 - (2*k+1+ x*(1+y))*x/((2*k+2+ x*(1+y))*x + 1/T(k+1) )); (continued fraction). - Sergei N. Gladkovskii, Nov 06 2013
T(n,k) = Sum_{i=k..floor(n/2)} binomial(n-i,i)*binomial(i,k). See Corollary 3.3 in the Klavzar et al. link. - Emeric Deutsch, Aug 12 2014

A087452 G.f.: (2-x)/((1+3x)(1-4x)); e.g.f.: exp(4x) + exp(-3x); a(n) = 4^n + (-3)^n.

Original entry on oeis.org

2, 1, 25, 37, 337, 781, 4825, 14197, 72097, 242461, 1107625, 4017157, 17308657, 65514541, 273218425, 1059392917, 4338014017, 17050729021, 69106897225, 273715645477, 1102998412177, 4387586157901, 17623567104025, 70274600998837, 281757406247137

Offset: 0

Paul Barry, Sep 06 2003

Generalized Lucas-Jacobsthal numbers.

Index entries for linear recurrences with constant coefficients, signature (1,12).

Cf. A014551, A053404, A087451.

CoefficientList[Series[(2 - z)/((1 + 3 z) (1 - 4 z)), {z, 0, 200}], z] (* Vladimir Joseph Stephan Orlovsky, Jun 11 2011 *)
LinearRecurrence[{1,12},{2,1},30] (* Harvey P. Dale, Nov 06 2022 *)

polsym(x^2-x-12,50) \\ Charles R Greathouse IV, Jun 11 2011

a(n) = (-3)^n+4^n.
a(n) = a(n-1) + 12*a(n-2) for n > 1; a(0)=2, a(1)=1. - Philippe Deléham, Sep 19 2009
a(n) = 2*A053404(n) - A053404(n-1), n > 0. - Ralf Stephan, Jul 21 2013

cp's OEIS Frontend

A065874 a(n) = (7^(n+1) - (-6)^(n+1))/13.

Views

Author

Keywords

Comments

References

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Formula

A109447 Binomial coefficients C(n,k) with n-k odd, read by rows.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Extensions

A128100 Triangle read by rows: T(n,k) is the number of ways to tile a 2 X n rectangle with k pieces of 2 X 2 tiles and n-2k pieces of 1 X 2 tiles (0 <= k <= floor(n/2)).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A087452 G.f.: (2-x)/((1+3x)(1-4x)); e.g.f.: exp(4x) + exp(-3x); a(n) = 4^n + (-3)^n.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

Formula