A236830 -id:A236830 - cp's OEIS frontend

A026726 a(n) = T(2n,n), T given by A026725.

1, 2, 7, 27, 108, 440, 1812, 7514, 31307, 130883, 548547, 2303413, 9686617, 40783083, 171868037, 724837891, 3058850316, 12915186640, 54554594416, 230526280814, 974414815782, 4119854160332, 17422801069670, 73695109608352, 311768697325788, 1319136935150530

Offset: 0

Clark Kimberling

nonn

G. C. Greubel, Table of n, a(n) for n = 0..1000
Paul Barry, A Catalan Transform and Related Transformations on Integer Sequences, Journal of Integer Sequences, Vol. 8 (2005), Article 05.4.5.

Cf. A000045, A000108, A026725.

List([0..30], n-> Sum([0..n], k-> (2*k+1)*Binomial(2*n,n-k)*
Fibonacci(k+1)/(n+k+1) )); # G. C. Greubel, Jul 16 2019

R:=PowerSeriesRing(Rationals(), 30); Coefficients(R!( 4*x*(1-Sqrt(1-4*x))/(8*x^2-(1-Sqrt(1-4*x))^3) )); // G. C. Greubel, Jul 16 2019

A026726 := proc(n)
    A026725(2*n,n) ;
end proc:
seq(A026726(n),n=0..10) ; # R. J. Mathar, Oct 26 2019

CoefficientList[Series[4*x*(1-Sqrt[1-4*x])/(8*x^2-(1-Sqrt[1-4*x])^3), {x,0,30}], x] (* G. C. Greubel, Jul 16 2019 *)

my(x='x+O('x^30)); Vec(4*x*(1-sqrt(1-4*x))/(8*x^2-(1-sqrt(1-4*x))^3)) \\ G. C. Greubel, Jul 16 2019

(4*x*(1-sqrt(1-4*x))/(8*x^2-(1-sqrt(1-4*x))^3)).series(x, 30).coefficients(x, sparse=False) # G. C. Greubel, Jul 16 2019

From Philippe Deléham, Feb 11 2009: (Start)
a(n) = Sum_{k=0..n} A039599(n,k)*A000045(k+1).
a(n) = Sum_{k=0..n} A106566(n,k)*A122367(k). (End)
From Philippe Deléham, Feb 02 2014: (Start)
a(n) = Sum_{k=0..n} A236843(n+k,2*k).
a(n) = Sum_{k=0..n} A236830(n,k).
a(n) = A236830(n+1,1).
a(n) = A165407(3*n).
G.f.: C(x)/(1-x*C(x)^3), C(x) the g.f. of A000108. (End)
n*(5*n-11)*a(n) +2*(-20*n^2+59*n-30)*a(n-1) +15*(5*n^2-19*n+16)*a(n-2) +2*(5*n-6)*(2*n-5)*a(n-3)=0. - R. J. Mathar, Oct 26 2019
n*a(n) +(-7*n+4)*a(n-1) +(7*n-2)*a(n-2) +(19*n-60)*a(n-3) +2*(2*n-7)*a(n-4)=0. - R. J. Mathar, Oct 26 2019

A026842 a(n) = T(2n,n-3), T given by A026725.

Original entry on oeis.org

1, 9, 56, 300, 1487, 7041, 32381, 146017, 649395, 2859231, 12494914, 54291912, 234860677, 1012433965, 4352210327, 18666918033, 79916230409, 341615895659, 1458457275715, 6220016154525, 26503542364381, 112847001503099, 480173686483581

Offset: 3

Clark Kimberling

nonn

Column k=8 of triangle A236830. - Philippe Deléham, Feb 02 2014

G. C. Greubel, Table of n, a(n) for n = 3..1000

Cf. A236830, A026846, A026849.

R:=PowerSeriesRing(Rationals(), 30); Coefficients(R!( (1-Sqrt(1-4*x))^8/(32*x^3*(8*x^2 -(1-Sqrt(1-4*x))^3 )) )); // G. C. Greubel, Jul 17 2019

Drop[CoefficientList[Series[(1-Sqrt[1-4*x])^8/(32*x^3*(8*x^2 -(1 - Sqrt[1-4*x])^3 )), {x,0,30}], x],3] (* G. C. Greubel, Jul 17 2019 *)

my(x='x+O('x^30)); Vec((1-sqrt(1-4*x))^8/(32*x^3*(8*x^2 -(1 - sqrt(1-4*x))^3 ))) \\ G. C. Greubel, Jul 17 2019

a=((1-sqrt(1-4*x))^8/(32*x^3*(8*x^2 -(1-sqrt(1-4*x))^3 ))).series(x, 30).coefficients(x, sparse=False); a[3:] # G. C. Greubel, Jul 17 2019

a(n) = A026846(n) = A026849(n). - Philippe Deléham, Feb 02 2014
G.f.: (x^3*C(x)^8)/(1-x*C(x)^3) where C(x) is the g.f. of A000108. - Philippe Deléham, Feb 02 2014
D-finite with recurrence -(n+3)*(253*n-940)*a(n) +(3061*n^2-6571*n-18156)*a(n-1) +(-12091*n^2+43849*n-996)*a(n-2) +(14543*n^2-76721*n+109596)*a(n-3) +2*(1037*n-2568)*(2*n-5)*a(n-4)=0. - R. J. Mathar, Jul 22 2025

A026846 a(n) = T(2n+1,n+4), T given by A026725.

Original entry on oeis.org

1, 9, 56, 300, 1487, 7041, 32381, 146017, 649395, 2859231, 12494914, 54291912, 234860677, 1012433965, 4352210327, 18666918033, 79916230409, 341615895659, 1458457275715, 6220016154525, 26503542364381, 112847001503099, 480173686483581

Offset: 3

Clark Kimberling

nonn

This is probably the same as A026842 because A026725 is built in a left-right symmetric Pascal-tree-summation fashion. - R. J. Mathar, May 28 2008

Column k=8 of triangle A236830. - Philippe Deléham, Feb 02 2014

G. C. Greubel, Table of n, a(n) for n = 3..1000

Cf. A236830, A026842, A026846.

R:=PowerSeriesRing(Rationals(), 30); Coefficients(R!( (1-Sqrt(1-4*x))^8/(32*x^3*(8*x^2 -(1-Sqrt(1-4*x))^3 )) )); // G. C. Greubel, Jul 17 2019

Drop[CoefficientList[Series[(1-Sqrt[1-4*x])^8/(32*x^3*(8*x^2 -(1 - Sqrt[1-4*x])^3 )), {x,0,30}], x], 3] (* G. C. Greubel, Jul 17 2019 *)

my(x='x+O('x^30)); Vec((1-sqrt(1-4*x))^8/(32*x^3*(8*x^2 -(1 - sqrt(1-4*x))^3 ))) \\ G. C. Greubel, Jul 17 2019

a=((1-sqrt(1-4*x))^8/(32*x^3*(8*x^2 -(1-sqrt(1-4*x))^3 ))).series(x, 30).coefficients(x, sparse=False); a[3:] # G. C. Greubel, Jul 17 2019

a(n) = A026842(n) = A026849(n). - Philippe Deléham, Feb 02 2014

G.f.: (x^3*C(x)^8)/(1-x*C(x)^3) where C(x) is the g.f. of A000108. - Philippe Deléham, Feb 02 2014

A026849 a(n) = T(2n,n-3), T given by A026736.

Original entry on oeis.org

1, 9, 56, 300, 1487, 7041, 32381, 146017, 649395, 2859231, 12494914, 54291912, 234860677, 1012433965, 4352210327, 18666918033, 79916230409, 341615895659, 1458457275715, 6220016154525, 26503542364381, 112847001503099, 480173686483581

Offset: 3

Clark Kimberling

nonn

Is this the same as A026846 and A026842? - R. J. Mathar, Oct 23 2008

Column k=8 of triangle A236830. - Philippe Deléham, Feb 02 2014

G. C. Greubel, Table of n, a(n) for n = 3..1000

Cf. A236830.

R:=PowerSeriesRing(Rationals(), 30); Coefficients(R!( (1-Sqrt(1-4*x))^8/(32*x^3*(8*x^2 -(1-Sqrt(1-4*x))^3 )) )); // G. C. Greubel, Jul 17 2019

CoefficientList[Series[(1-Sqrt[1-4*x])^8/(32*x^3*(8*x^2 -(1-Sqrt[1-4*x])^3 )), {x,0,30}], x] (* G. C. Greubel, Jul 17 2019 *)

my(x='x+O('x^30)); Vec((1-sqrt(1-4*x))^8/(32*x^3*(8*x^2 -(1-sqrt(1-4*x))^3 ))) \\ G. C. Greubel, Jul 17 2019

a=((1-sqrt(1-4*x))^8/(32*x^3*(8*x^2 -(1-sqrt(1-4*x))^3 ))).series(x, 30).coefficients(x, sparse=False); a[3:] # G. C. Greubel, Jul 17 2019

a(n) = A026842(n) = A026846(n). - Philippe Deléham, Feb 02 2014

G.f.: (x^3*C(x)^8)/(1-x*C(x)^3) where C(x) is the g.f. of A000108. - Philippe Deléham, Feb 02 2014

A026841 a(n) = T(2n,n-4), T given by A026725.

Original entry on oeis.org

1, 11, 79, 471, 2535, 12809, 62067, 292085, 1345718, 6102780, 27343148, 121359692, 534632836, 2341151646, 10201950700, 44278673806, 191540714294, 826265471868, 3555992623850, 15273547250820, 65491352071266, 280412963707416

Offset: 4

Clark Kimberling

nonn

Column k=10 of triangle A236830. - Philippe Deléham, Feb 02 2014

G. C. Greubel, Table of n, a(n) for n = 4..1000

Cf. A236830.

R:=PowerSeriesRing(Rationals(), 40); Coefficients(R!( (1-Sqrt(1-4*x))^10/(128*x^4*(8*x^2 -(1-Sqrt(1-4*x))^3 )) )); // G. C. Greubel, Jul 17 2019

Drop[CoefficientList[Series[(1-Sqrt[1-4*x])^10/(128*x^4*(8*x^2 -(1 - Sqrt[1-4*x])^3 )), {x,0,40}], x], 4] (* G. C. Greubel, Jul 17 2019 *)

my(x='x+O('x^40)); Vec((1-sqrt(1-4*x))^10/(128*x^4*(8*x^2 -(1 - sqrt(1-4*x))^3 ))) \\ G. C. Greubel, Jul 17 2019

a=((1-sqrt(1-4*x))^10/(128*x^4*(8*x^2 -(1-sqrt(1-4*x))^3 ))).series(x, 45).coefficients(x, sparse=False); a[4:40] # G. C. Greubel, Jul 17 2019

a(n) = A026848(n). - Philippe Deléham, Feb 02 2014
G.f.: (x^4*C(x)^10)/(1-x*C(x)^3) where C(x) is the g.f. of A000108. - Philippe Deléham, Feb 02 2014
D-finite with recurrence (n+4)*(3421*n+2687)*a(n) +(3421*n^2-245139*n-819238)*a(n-1) +3*(-126201*n^2+820641*n+1451992)*a(n-2) +(1944367*n^2-12105285*n+5094446)*a(n-3) +6*(-438489*n^2+3204217*n-6453730)*a(n-4) -12*(2*n-7)*(30601*n-111490)*a(n-5)=0. - R. J. Mathar, Jul 22 2025

A026848 a(n) = T(2n,n-4), T given by A026736.

Original entry on oeis.org

1, 11, 79, 471, 2535, 12809, 62067, 292085, 1345718, 6102780, 27343148, 121359692, 534632836, 2341151646, 10201950700, 44278673806, 191540714294, 826265471868, 3555992623850, 15273547250820, 65491352071266, 280412963707416

Offset: 4

Clark Kimberling

nonn

Is this the same as A026841? - R. J. Mathar, Oct 23 2008

Column k=10 of triangle A236830. - Philippe Deléham, Feb 02 2014

G. C. Greubel, Table of n, a(n) for n = 4..1000

Cf. A236830.

R:=PowerSeriesRing(Rationals(), 40); Coefficients(R!( (1-Sqrt(1-4*x))^10/(128*x^4*(8*x^2 -(1-Sqrt(1-4*x))^3 )) )); // G. C. Greubel, Jul 17 2019

Drop[CoefficientList[Series[(1-Sqrt[1-4*x])^10/(128*x^4*(8*x^2 -(1 - Sqrt[1-4*x])^3 )), {x,0,40}], x], 4] (* G. C. Greubel, Jul 17 2019 *)

my(x='x+O('x^40)); Vec((1-sqrt(1-4*x))^10/(128*x^4*(8*x^2 -(1 - sqrt(1-4*x))^3 ))) \\ G. C. Greubel, Jul 17 2019

a=((1-sqrt(1-4*x))^10/(128*x^4*(8*x^2 -(1-sqrt(1-4*x))^3 ))).series(x, 45).coefficients(x, sparse=False); a[4:40] # G. C. Greubel, Jul 17 2019

a(n) = A026841(n). - Philippe Deléham, Feb 02 2014

G.f.: (x^4*C(x)^10)/(1-x*C(x)^3) where C(x) is the g.f. of A000108. - Philippe Deléham, Feb 02 2014

A026672 a(n) = T(2n,n-1), T given by A026670. Also T(2n,n-1)=T(2n+1,n+2), T given by A026725; and T(2n,n-1), T given by A026736.

Original entry on oeis.org

1, 5, 22, 94, 398, 1680, 7085, 29877, 126021, 531751, 2244627, 9478605, 40040183, 169193597, 715143046, 3023492646, 12785541850, 54076955716, 228759017624, 967850695362, 4095387893312, 17331318506030

Offset: 2

Clark Kimberling

nonn

Column k=4 of triangle A236830. - Philippe Deléham, Feb 02 2014

G. C. Greubel, Table of n, a(n) for n = 2..1000

Cf. A000108, A026670, A026725, A026736, A236830.

R:=PowerSeriesRing(Rationals(), 30); Coefficients(R!(  (1-Sqrt(1-4*x))^4/(2*(8*x^2 -(1-Sqrt(1-4*x))^3)) )); // G. C. Greubel, Jul 16 2019

Drop[CoefficientList[Series[(1-Sqrt[1-4*x])^4/(2*(8*x^2 -(1-Sqrt[1-4*x] )^3)), {x,0,30}], x], 2] (* G. C. Greubel, Jul 16 2019 *)

my(x='x+O('x^30)); Vec( (1-sqrt(1-4*x))^4/(2*(8*x^2 -(1-sqrt(1-4*x))^3))) \\ G. C. Greubel, Jul 16 2019

a=((1-sqrt(1-4*x))^4/(2*(8*x^2 -(1-sqrt(1-4*x))^3))).series(x, 30).coefficients(x, sparse=False); a[2:] # G. C. Greubel, Jul 16 2019

G.f.: (x*C(x)^4)/(1-x*C(x)^3), where C(x) is the g.f. of A000108. - Philippe Deléham, Feb 02 2014

Conjecture: -(n+1)*(n-6)*a(n) +2*(4*n^2-23*n+3)*a(n-1) +3*(-5*n^2+33*n-42)*a(n-2) -2*(2*n-3)*(n-5)*a(n-3)=0. - R. J. Mathar, Aug 08 2015

A026673 a(n) = T(2n,n-2), T given by A026670.

Original entry on oeis.org

1, 7, 37, 177, 808, 3596, 15764, 68446, 295294, 1268356, 5430734, 23199304, 98933705, 421352919, 1792709561, 7621345733, 32380443643, 137504761035, 583684770103, 2476836131227, 10507517431481, 44566369523517, 188988331406117

Offset: 2

Clark Kimberling

nonn

Also a(n) = T(2n,n-2) = T(2n+1,n+2), T given by A026725.
Also a(n) = T(2n,n-2), T given by A026736.
Column k=6 of triangle A236830. - Philippe Deléham, Feb 02 2014

G. C. Greubel, Table of n, a(n) for n = 2..1000

Cf. A000108, A026670, A026725, A026736, A236830.

R:=PowerSeriesRing(Rationals(), 30); Coefficients(R!(  (1-Sqrt(1-4*x))^6/(8*x^2*(8*x^2 -(1-Sqrt(1-4*x))^3)) )); // G. C. Greubel, Jul 16 2019

Drop[CoefficientList[Series[(1-Sqrt[1-4*x])^6/(8*x^2*(8*x^2-(1-Sqrt[1 - 4*x])^3)), {x,0,30}], x], 2] (* G. C. Greubel, Jul 16 2019 *)

my(x='x+O('x^30)); Vec( (1-sqrt(1-4*x))^6/(8*x^2*(8*x^2 -(1-sqrt(1-4*x))^3))) \\ G. C. Greubel, Jul 16 2019

a=((1-sqrt(1-4*x))^6/(8*x^2*(8*x^2 -(1-sqrt(1-4*x))^3))).series(x, 30).coefficients(x, sparse=False); a[2:] # G. C. Greubel, Jul 16 2019

G.f.: (x^2*C(x)^6)/(1-x*C(x)^3) where C(x) is the g.f. of A000108. - Philippe Deléham, Feb 02 2014

-(n+2)*(3*n-7)*a(n) +2*(12*n^2-19*n-16)*a(n-1) +5*(-9*n^2+27*n-22)*a(n-2) -2*(3*n-4)*(2*n-3)*a(n-3)=0. - R. J. Mathar, Oct 26 2019

A026675 a(n) = T(2n-1,n-2), T given by A026670. Also T(2n-1,n-2) = T(2n,n+2), T given by A026725 and T(2n,n-2), T given by A026736.

Original entry on oeis.org

1, 6, 29, 131, 575, 2488, 10681, 45641, 194467, 827045, 3512983, 14909339, 63239487, 268127302, 1136495965, 4816202207, 20406887583, 86457399359, 366263778659, 1551535465465, 6572224024539, 27838835937511, 117918419518219

Offset: 2

Clark Kimberling

nonn

Column k=5 of triangle A236830. - Philippe Deléham, Feb 02 2014

G. C. Greubel, Table of n, a(n) for n = 2..1000

Cf. A000108, A026670, A026725, A026736, A236830.

R:=PowerSeriesRing(Rationals(), 30); Coefficients(R!(  (1-Sqrt(1-4*x))^5/(4*x*(8*x^2 -(1-Sqrt(1-4*x))^3)) )); // G. C. Greubel, Jul 16 2019

Drop[CoefficientList[Series[(1-Sqrt[1-4*x])^5/(4*x*(8*x^2 -(1-Sqrt[1 - 4*x])^3)), {x,0,30}], x], 2] (* G. C. Greubel, Jul 16 2019 *)

my(x='x+O('x^30)); Vec( (1-sqrt(1-4*x))^5/(4*x*(8*x^2 -(1-sqrt(1-4*x))^3))) \\ G. C. Greubel, Jul 16 2019

a=((1-sqrt(1-4*x))^5/(4*x*(8*x^2 -(1-sqrt(1-4*x))^3))).series(x, 30).coefficients(x, sparse=False); a[2:] # G. C. Greubel, Jul 16 2019

G.f.: (x^2*C(x)^5)/(1-x*C(x)^3) where C(x) is the g.f. of A000108. - Philippe Deléham, Feb 02 2014

A026843 a(n) = T(2n,n+3), T given by A026725.

Original entry on oeis.org

1, 8, 46, 233, 1108, 5083, 22805, 100827, 441311, 1917751, 8289965, 35694218, 153225617, 656213596, 2805143526, 11973556060, 51047361676, 217420991444, 925300665762, 3935293406942, 16727533586006, 71069911887898, 301835332909216

Offset: 3

Clark Kimberling

nonn

Column k=7 of triangle A236830. - Philippe Deléham, Feb 02 2014

G. C. Greubel, Table of n, a(n) for n = 3..1000

Cf. A000108, A026725, A236830.

R:=PowerSeriesRing(Rationals(), 40); Coefficients(R!( (1-Sqrt(1-4*x))^7/(16*x^2*(8*x^2 -(1-Sqrt(1-4*x))^3)) )); // G. C. Greubel, Jul 19 2019

Drop[CoefficientList[Series[(1-Sqrt[1-4*x])^7/(16*x^2*(8*x^2 -(1-Sqrt[1-4*x])^3)), {x, 0, 40}], x], 3] (* G. C. Greubel, Jul 19 2019 *)

my(x='x+O('x^40)); Vec( (1-sqrt(1-4*x))^7/(16*x^2*(8*x^2 -(1-sqrt(1-4*x))^3)) ) \\ G. C. Greubel, Jul 19 2019

a=((1-sqrt(1-4*x))^7/(16*x^2*(8*x^2 -(1-sqrt(1-4*x))^3)) ).series(x, 45).coefficients(x, sparse=False); a[3:40] # G. C. Greubel, Jul 19 2019

G.f.: (x^3*C(x)^7)/(1-x*C(x)^3) where C(x) is the g.f. of A000108. - Philippe Deléham, Feb 02 2014

a(n) ~ phi^(3*n-4) / sqrt(5), where phi = A001622 = (1+sqrt(5))/2 is the golden ratio. - Vaclav Kotesovec, Jul 19 2019

cp's OEIS Frontend

A026726 a(n) = T(2n,n), T given by A026725.

Views

Author

Keywords

Links

Crossrefs

Programs

GAP

Magma

Maple

Mathematica

PARI

Sage

Formula

A026842 a(n) = T(2n,n-3), T given by A026725.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Magma

Mathematica

PARI

Sage

Formula

A026846 a(n) = T(2n+1,n+4), T given by A026725.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Magma

Mathematica

PARI

Sage

Formula

A026849 a(n) = T(2n,n-3), T given by A026736.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Magma

Mathematica

PARI

Sage

Formula

A026841 a(n) = T(2n,n-4), T given by A026725.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Magma

Mathematica

PARI

Sage

Formula

A026848 a(n) = T(2n,n-4), T given by A026736.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Magma

Mathematica

PARI

Sage

Formula