1, 10, 1, 120, 20, 1, 1560, 340, 30, 1, 21216, 5520, 660, 40, 1, 297024, 88032, 12880, 1080, 50, 1, 4243200, 1392768, 236448, 24640, 1600, 60, 1, 61526400, 21952320, 4187232, 512464, 41800, 2220, 70, 1, 902387200, 345396480, 72452160, 10060416
Offset: 0
A092083
A convolution triangle of numbers obtained from A034789.
Original entry on oeis.org
1, 21, 1, 546, 42, 1, 15561, 1533, 63, 1, 466830, 54054, 2961, 84, 1, 14471730, 1885338, 124740, 4830, 105, 1, 458960580, 65542932, 4977882, 236880, 7140, 126, 1, 14801478705, 2277656901, 192582117, 10661301, 399735, 9891, 147, 1
Offset: 1
{1}; {21,1}; {546,42,1}; {15561,1533,63,1}; ...
A049375
A convolution triangle of numbers obtained from A034687.
Original entry on oeis.org
1, 15, 1, 275, 30, 1, 5500, 775, 45, 1, 115500, 19250, 1500, 60, 1, 2502500, 471625, 44625, 2450, 75, 1, 55412500, 11495000, 1254000, 85000, 3625, 90, 1, 1246781250, 279675000, 34093125, 2698875, 143750, 5025, 105, 1, 28398906250, 6802812500
Offset: 1
{1}; {15,1}; {275,30,1}; {5500,775,45,1}; ...
-
a[n_, m_] := Coefficient[Series[((-1 + (1 - 25*x)^(-1/5))/5)^m, {x, 0, n}], x^n];
Flatten[Table[a[n, m], {n, 1, 9}, {m, 1, n}]][[1 ;; 38]]
(* Jean-François Alcover, Jun 21 2011, after g.f. *)
A132057
A convolution triangle of numbers obtained from A034904.
Original entry on oeis.org
1, 28, 1, 980, 56, 1, 37730, 2744, 84, 1, 1531838, 130340, 5292, 112, 1, 64337196, 6136956, 299782, 8624, 140, 1, 2766499428, 288408120, 16120314, 568008, 12740, 168, 1, 121034349975, 13561837212, 841627332, 34401528, 956970, 17640, 196, 1
Offset: 1
{1}; {28,1}; {980,56,1}; (37730,2744,84,1);...
-
a[n_, m_] := a[n, m] = 7*(7*(n-1) + m)*a[n-1, m]/n + m*a[n-1, m-1]/n;
a[n_, m_] /; n < m = 0; a[_, 0] = 0; a[1, 1] = 1;
Flatten[Table[a[n, m], {n, 1, 8}, {m, 1, n}]][[1 ;; 36]]
(* Jean-François Alcover, Jun 17 2011 *)
Showing 1-7 of 7 results.
Comments