A085880
Triangle T(n,k) read by rows: multiply row n of Pascal's triangle (A007318) by the n-th Catalan number (A000108).
Original entry on oeis.org
1, 1, 1, 2, 4, 2, 5, 15, 15, 5, 14, 56, 84, 56, 14, 42, 210, 420, 420, 210, 42, 132, 792, 1980, 2640, 1980, 792, 132, 429, 3003, 9009, 15015, 15015, 9009, 3003, 429, 1430, 11440, 40040, 80080, 100100, 80080, 40040, 11440, 1430, 4862, 43758, 175032, 408408, 612612, 612612, 408408, 175032, 43758, 4862
Offset: 0
Triangle starts:
[ 1] 1;
[ 2] 1, 1;
[ 3] 2, 4, 2;
[ 4] 5, 15, 15, 5;
[ 5] 14, 56, 84, 56, 14;
[ 6] 42, 210, 420, 420, 210, 42;
[ 7] 132, 792, 1980, 2640, 1980, 792, 132;
[ 8] 429, 3003, 9009, 15015, 15015, 9009, 3003, 429;
[ 9] 1430, 11440, 40040, 80080, 100100, 80080, 40040, 11440, 1430;
[10] 4862, 43758, 175032, 408408, 612612, 612612, 408408, 175032, 43758, 4862;
...
-
Flat(List([0..10], n-> List([0..n], k-> Binomial(n,k)*Binomial(2*n,n)/( n+1) ))); # G. C. Greubel, Feb 07 2020
-
[Binomial(n,k)*Catalan(n): k in [0..n], n in [0..10]]; // G. C. Greubel, Feb 07 2020
-
seq(seq(binomial(n, k)*binomial(2*n, n)/(n+1), k = 0..n), n = 0..10); # G. C. Greubel, Feb 07 2020
-
Table[Binomial[n, k]*CatalanNumber[n], {n,0,10}, {k,0,n}]//Flatten (* G. C. Greubel, Feb 07 2020 *)
-
tabl(nn) = {for (n=0, nn, c = binomial(2*n,n)/(n+1); for (k=0, n, print1(c*binomial(n, k), ", ");); print(););} \\ Michel Marcus, Apr 09 2015
-
[[binomial(n,k)*catalan_number(n) for k in (0..n)] for n in (0..10)] # G. C. Greubel, Feb 07 2020
A290605
Square array A(n,k), n>=0, k>=0, read by antidiagonals, where column k is the expansion of 2/(1 + sqrt(1 - 4*k*x)).
Original entry on oeis.org
1, 1, 0, 1, 1, 0, 1, 2, 2, 0, 1, 3, 8, 5, 0, 1, 4, 18, 40, 14, 0, 1, 5, 32, 135, 224, 42, 0, 1, 6, 50, 320, 1134, 1344, 132, 0, 1, 7, 72, 625, 3584, 10206, 8448, 429, 0, 1, 8, 98, 1080, 8750, 43008, 96228, 54912, 1430, 0, 1, 9, 128, 1715, 18144, 131250, 540672, 938223, 366080, 4862, 0
Offset: 0
G.f. of column k: A(x) = 1 + k*x + 2*k^2*x^2 + 5*k^3*x^3 + 14*k^4*x^4 + 42*k^5*x^5 + 132*k^6*x^6 + ...
Square array begins:
1, 1, 1, 1, 1, 1, ...
0, 1, 2, 3, 4, 5, ...
0, 2, 8, 18, 32, 50, ...
0, 5, 40, 135, 320, 625, ...
0, 14, 224, 1134, 3584, 8750, ...
0, 42, 1344, 10206, 43008, 131250, ...
Columns k=0-10 give:
A000007,
A000108,
A151374,
A005159,
A151403,
A156058,
A156128,
A156266,
A156270,
A156273,
A156275.
-
ctln:= proc(n) option remember; binomial(2*n, n)/(n+1) end:
A:= proc(n, k) option remember; k^n*ctln(n) end:
seq(seq(A(n, d-n), n=0..d), d=0..10); # Alois P. Heinz, Oct 28 2019
-
Table[Function[k, SeriesCoefficient[2/(1 + Sqrt[1 - 4 k x]), {x, 0, n}]][j - n], {j, 0, 10}, {n, 0, j}] // Flatten
Table[Function[k, SeriesCoefficient[1/(1 + ContinuedFractionK[-k x, 1, {i, 1, n}]), {x, 0, n}]][j - n], {j, 0, 10}, {n, 0, j}] // Flatten
A156266
a(n) = 7^n*Catalan(n).
Original entry on oeis.org
1, 7, 98, 1715, 33614, 705894, 15529668, 353299947, 8243665430, 196199237234, 4744454282204, 116239129913998, 2879153833254412, 71978845831360300, 1813866914950279560, 46026872966863343835, 1175038992212864189670
Offset: 0
-
[7^n*Catalan(n): n in [0..20]]; // Vincenzo Librandi, Jul 19 2011
-
A156266_list := proc(n) local j, a, w; a := array(0..n); a[0] := 1;
for w from 1 to n do a[w] := 7*(a[w-1]+add(a[j]*a[w-j-1],j=1..w-1)) od;convert(a,list)end: A156266_list(16); # Peter Luschny, May 19 2011
-
Table[7^n * CatalanNumber[n], {n, 0, 16}] (* Amiram Eldar, Jan 25 2022 *)
A156270
a(n) = 8^n*Catalan(n).
Original entry on oeis.org
1, 8, 128, 2560, 57344, 1376256, 34603008, 899678208, 23991418880, 652566593536, 18034567675904, 504967894925312, 14294475794808832, 408413594137395200, 11762311511156981760, 341107033823552471040, 9952299339793060331520
Offset: 0
- Vincenzo Librandi, Table of n, a(n) for n = 0..200
- Brigitte Chauvin, Philippe Flajolet, Daniele Gardy and Bernhard Gittenberger, And/Or Tree Revisited, Combinat., Probal. Comput., Vol. 13, No. 4-5 (2004), pp. 475-497.
A156273
a(n) = 9^n*Catalan(n).
Original entry on oeis.org
1, 9, 162, 3645, 91854, 2480058, 70150212, 2051893701, 61556811030, 1883638417518, 58564030799196, 1844766970174674, 58748732742485772, 1888352123865614100, 61182608813245896840, 1996082612532147384405, 65518476340761072970470, 2162109719245115408025510
Offset: 0
A156361
a(2*n+2) = 7*a(2*n+1), a(2*n+1) = 7*a(2*n) - 6^n*A000108(n), a(0) = 1.
Original entry on oeis.org
1, 6, 42, 288, 2016, 14040, 98280, 686880, 4808160, 33638976, 235472832, 1647983232, 11535882624, 80745019776, 565215138432, 3956385876480, 27694701135360, 193860506096640, 1357023542676480, 9499115800977408
Offset: 0
-
[n le 3 select Factorial(n+4)/120 else (7*n*Self(n-1) + 24*(n-3)*Self(n-2) - 168*(n-3)*Self(n-3))/n: n in [1..30]]; // G. C. Greubel, Nov 09 2022
-
A156361 := proc(n)
option remember;
local nh;
if n= 0 then
1;
elif type(n,'even') then
7*procname(n-1);
else
nh := floor(n/2) ;
7*procname(n-1)-6^nh*A000108(nh) ;
end if;
end proc: # R. J. Mathar, Jul 21 2016
-
a[n_]:= a[n]= If[n==0, 1, 7*a[n-1] -If[EvenQ[n], 0, 6^((n-1)/2)* CatalanNumber[(n-1)/2]]];
Table[a[n], {n, 0, 30}] (* Jean-François Alcover, Aug 04 2022 *)
-
def a(n): # a = A156361
if (n==0): return 1
elif (n%2==1): return 7*a(n-1) - 6^((n-1)/2)*catalan_number((n-1)/2)
else: return 7*a(n-1)
[a(n) for n in (0..30)] # G. C. Greubel, Nov 09 2022
A156275
a(n) = 10^n*Catalan(n).
Original entry on oeis.org
1, 10, 200, 5000, 140000, 4200000, 132000000, 4290000000, 143000000000, 4862000000000, 167960000000000, 5878600000000000, 208012000000000000, 7429000000000000000, 267444000000000000000, 9694845000000000000000, 353576700000000000000000
Offset: 0
Showing 1-7 of 7 results.
Comments