A291905 -id:A291905 - cp's OEIS frontend

A173258 Number of compositions of n where differences between neighboring parts are in {-1,1}.

1, 1, 1, 3, 2, 4, 5, 5, 7, 10, 9, 14, 16, 19, 24, 31, 35, 45, 55, 66, 84, 104, 124, 156, 192, 236, 292, 363, 444, 551, 681, 839, 1040, 1287, 1586, 1967, 2430, 3001, 3717, 4597, 5683, 7034, 8697, 10758, 13312, 16469, 20369, 25204, 31180, 38574, 47726, 59047

Offset: 0

Alois P. Heinz, Jul 08 2012

nonn

			a(3) = 3: [3], [2,1], [1,2].
a(4) = 2: [4], [1,2,1].
a(5) = 4: [5], [3,2], [2,3], [2,1,2].
a(6) = 5: [6], [3,2,1], [2,1,2,1], [1,2,3], [1,2,1,2].

Alois P. Heinz, Table of n, a(n) for n = 0..5000
John Tyler Rascoe, Illustration of n = 1..16

Column k=1 of A214247, A214249.
Row sums of A309938, A364039.
Cf. A227310, A291904, A291905, A343795, A362500, A363718, A364529.

b:= proc(n, i) option remember;
      `if`(n<1 or i<1, 0, `if`(n=i, 1, add(b(n-i, i+j), j=[-1, 1])))
    end:
a:= n-> `if`(n=0, 1, add(b(n, j), j=1..n)):
seq(a(n), n=0..70);

b[n_, i_] := b[n, i] = If[n < 1 || i < 1, 0, If[n == i, 1, Sum[b[n - i, i + j], {j, {-1, 1}}]]]; a[n_] := If[n == 0, 1, Sum[b[n, j], {j, 1, n}]]; Table[a[n], {n, 0, 70}] // Flatten (* Jean-François Alcover, Dec 13 2013, translated from Maple *)

step(R,n)={matrix(n, n, i, j, if(i>j, if(j>1, R[i-j, j-1]) + if(j+1<=n, R[i-j, j+1])) )}
a(n)={my(R=matid(n), t=(n==0), m=0); while(R, m++; t+=vecsum(R[n,]); R=step(R,n)); t} \\ Andrew Howroyd, Aug 23 2019

a(n) ~ c * d^n, where d=1.23729141259673487395949649334678514763130846902468..., c=1.134796087242490181499736234755111281606636700030106.... - Vaclav Kotesovec, May 01 2014

G.f.: 1 + Sum_{k>0} G(x,k) where G(x,k) = x^k*(1 + G(x,k+1) + G(x,k-1)) for k > 0 and G(x,0) = 0. - John Tyler Rascoe, Sep 16 2023

A291904 Triangle read by rows: T(n,k) = T(n-k,k-1) + T(n-k,k+1) with T(0,0) = 1 for 0 <= k <= A003056(n).

Original entry on oeis.org

1, 0, 1, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 1, 1, 0, 1, 0, 0, 0, 0, 1, 0, 0, 1, 1, 1, 0, 1, 0, 0, 1, 0, 0, 2, 1, 0, 0, 2, 1, 1, 0, 0, 1, 1, 1, 1, 0, 1, 3, 2, 0, 0, 3, 2, 1, 1, 1, 0, 2, 3, 2, 1, 0, 0, 3, 4, 3, 1, 0, 0, 4, 4, 3, 2, 1, 0, 4, 6, 4, 2, 0, 0, 6, 7

Offset: 0

Seiichi Manyama, Sep 05 2017

T(n,k) is the number of integer compositions of n with first part 1, last part k, and all adjacent differences in {-1,1}. - John Tyler Rascoe, Aug 14 2023

			First few rows are:
  1;
  0, 1;
  0, 0;
  0, 0, 1;
  0, 1, 0;
  0, 0, 0;
  0, 0, 1, 1;
  0, 1, 0, 0;
  0, 0, 1, 0;
  0, 1, 1, 1;
  0, 1, 0, 0, 1;
  0, 0, 2, 1, 0;
  0, 2, 1, 1, 0.

Seiichi Manyama, Rows n = 0..481, flattened

Row sums give A291905.
Columns 0-1 give A000007, A227310 (for n>0).
Cf. A008289, A173258, A291895, A291929.

T[0, 0] = 1; T[, 0] = 0; T[n?Positive, k_] /; 0 < k <= Floor[(Sqrt[8n+1] - 1)/2] := T[n, k] = T[n-k, k-1] + T[n-k, k+1]; T[, ] = 0;
Table[T[n, k], {n, 0, 20}, {k, 0, Floor[(Sqrt[8n+1] - 1)/2]}] // Flatten (* Jean-François Alcover, May 29 2019 *)

From John Tyler Rascoe, Aug 14 2023: (Start)
This triangle is T_1(n,k) of the general triangle T_m(n,k) for compositions of this kind with first part m.
T_m(n,k) for 0 < m, 0 <= n, and 0 <= k <= A003056(n+A000217(m-1)).
T_m(0,0) = T_m(m,m) = 1.
T_m(n,k) = T_m(n-k,k-1) + T_m(n-k,k+1) for m < n and 0 < k <= A003056(n+A000217(m-1)).
T_m(n,k) = 0 for 0 < n < m or n < k.
T_m(n,0) = 0 for 0 < n. (End)

A291930 Row sums of A291929.

Original entry on oeis.org

1, 1, 2, 5, 11, 26, 60, 139, 321, 743, 1716, 3965, 9158, 21152, 48848, 112808, 260500, 601553, 1389096, 3207660, 7406989, 17103860, 39495306, 91200333, 210594475, 486292240, 1122916743, 2592971247, 5987531168, 13826041086, 31926247578, 73722134145, 170234630412

Offset: 0

Seiichi Manyama, Sep 06 2017

nonn

Seiichi Manyama, Table of n, a(n) for n = 0..2752

Cf. A291896, A291905.

A291942 Row sums of A291940.

Original entry on oeis.org

1, 1, -2, 5, -9, 14, -24, 47, -87, 151, -272, 505, -918, 1656, -3020, 5512, -10020, 18221, -33172, 60388, -109899, 199992, -364002, 662529, -1205777, 2194488, -3994057, 7269275, -13230124, 24078998, -43824226, 79760817, -145165804, 264203948, -480855437, 875164374

Offset: 0

Seiichi Manyama, Sep 06 2017

sign

Seiichi Manyama, Table of n, a(n) for n = 0..3841

Cf. A291896, A291905, A291930.

A364039 Triangle read by rows: T(n,k) is the number of integer compositions of n with first part k and differences between neighboring parts in {-1,1}.

Original entry on oeis.org

1, 0, 1, 0, 0, 1, 0, 1, 1, 1, 0, 1, 0, 0, 1, 0, 0, 2, 1, 0, 1, 0, 2, 1, 1, 0, 0, 1, 0, 1, 1, 1, 1, 0, 0, 1, 0, 1, 3, 2, 0, 0, 0, 0, 1, 0, 3, 2, 1, 2, 1, 0, 0, 0, 1, 0, 2, 3, 2, 1, 0, 0, 0, 0, 0, 1, 0, 3, 4, 3, 1, 1, 1, 0, 0, 0, 0, 1, 0, 4, 4, 4, 2, 1, 0, 0, 0, 0, 0, 0, 1

Offset: 0

John Tyler Rascoe, Aug 06 2023

			Triangle begins:
  1;
  0, 1;
  0, 0, 1;
  0, 1, 1, 1;
  0, 1, 0, 0, 1;
  0, 0, 2, 1, 0, 1;
  0, 2, 1, 1, 0, 0, 1;
  0, 1, 1, 1, 1, 0, 0, 1;
  0, 1, 3, 2, 0, 0, 0, 0, 1;
  0, 3, 2, 1, 2, 1, 0, 0, 0, 1;
  0, 2, 3, 2, 1, 0, 0, 0, 0, 0, 1;
  ...
For n = 6 there are a total of 5 compositions:
  T(6,1) = 2: (123), (1212)
  T(6,2) = 1: (2121)
  T(6,3) = 1: (321)
  T(6,6) = 1: (6)

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

Cf. A291905 (column k=1), A173258 (row sums).

Cf. A227310, A291904, A309938, A362500, A364529.

T:= proc(n, i) option remember; `if`(n<1 or i<1, 0,
     `if`(n=i, 1, add(T(n-i, i+j), j=[-1, 1])))
    end: T(0$2):=1:
seq(seq(T(n, k), k=0..n), n=0..14);  # Alois P. Heinz, Aug 08 2023

def A364039_rowlist(row_max):
    A = []
    for n in range(0,row_max+1):
        A.append([])
        for k in range(0,n+1):
            z = 0
            if n==k: z += 1
            elif k > 1 and k-1 <= n-k: z += A[n-k][k-1]
            if k+1 <= n-k and k != 0: z += A[n-k][k+1]
            A[n].append(z)
        print(A[n])
A364039_rowlist(12)

T(n,n) = 1.
T(n,k) = T(n-k,k+1) + T(n-k,k-1) for 0 < k < n.
T(n,k) = 0 for n < k.
T(n,0) = 0 for 0 < n.

A291956 Row sums of A291955.

Original entry on oeis.org

1, 1, 0, 1, -1, 0, 0, 1, -1, 1, 0, 1, -2, 0, -2, 4, -2, 3, -4, 4, -7, 8, -8, 13, -15, 16, -23, 27, -32, 42, -50, 63, -80, 94, -119, 150, -180, 225, -279, 344, -427, 526, -652, 807, -998, 1235, -1526, 1892, -2339, 2889, -3581, 4427, -5476, 6779, -8382, 10378

Offset: 0

Seiichi Manyama, Sep 06 2017

sign

Seiichi Manyama, Table of n, a(n) for n = 0..10000

Cf. A291905.

cp's OEIS Frontend

A173258 Number of compositions of n where differences between neighboring parts are in {-1,1}.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Formula

A291904 Triangle read by rows: T(n,k) = T(n-k,k-1) + T(n-k,k+1) with T(0,0) = 1 for 0 <= k <= A003056(n).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A291930 Row sums of A291929.

Views

Author

Keywords

Links

Crossrefs

A291942 Row sums of A291940.

Views

Author

Keywords

Links

Crossrefs

A364039 Triangle read by rows: T(n,k) is the number of integer compositions of n with first part k and differences between neighboring parts in {-1,1}.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Maple

Python

Formula

A291956 Row sums of A291955.

Views

Author

Keywords

Links

Crossrefs