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}; ...
A004130
Numerators in expansion of (1-x)^{-1/4}.
Original entry on oeis.org
1, 1, 5, 15, 195, 663, 4641, 16575, 480675, 1762475, 13042315, 48612265, 729183975, 2748462675, 20809788825, 79077197535, 4823709049635, 18443593425075, 141400882925575, 543277076503525, 8366466978154285, 32270658344309385
Offset: 0
-
Table[Numerator[Binomial[-1/4, n] (-1)^n], {n, 0, 20}]
-
{a(n) = if( n<0, 0, numerator( polcoeff( (1 - x +x*O(x^n))^(-1/4), n ) ) ) } /* Michael Somos, Aug 23 2007 */
A034255
Related to quartic factorial numbers A007696.
Original entry on oeis.org
1, 10, 120, 1560, 21216, 297024, 4243200, 61526400, 902387200, 13355330560, 199115837440, 2986737561600, 45030812467200, 681895160217600, 10364806435307520, 158063298138439680, 2417438677411430400, 37067393053641932800, 569667303771760230400, 8772876478085107548160
Offset: 1
-
Rest[CoefficientList[Series[(-1+(1-16x)^(-1/4))/4,{x,0,20}],x]] (* Harvey P. Dale, May 19 2011 *)
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