A079028
a(0) = 1, a(n) = (n + 4)*4^(n-1) for n >= 1.
Original entry on oeis.org
1, 5, 24, 112, 512, 2304, 10240, 45056, 196608, 851968, 3670016, 15728640, 67108864, 285212672, 1207959552, 5100273664, 21474836480, 90194313216, 377957122048, 1580547964928, 6597069766656, 27487790694400, 114349209288704, 474989023199232, 1970324836974592, 8162774324609024
Offset: 0
A081106
6th binomial transform of (1,1,0,0,0,0,...).
Original entry on oeis.org
1, 7, 48, 324, 2160, 14256, 93312, 606528, 3919104, 25194240, 161243136, 1027924992, 6530347008, 41358864384, 261213880320, 1645647446016, 10344069660672, 64885527871488, 406239826673664, 2538998916710400, 15843353240272896, 98716277881700352, 614234617930579968
Offset: 0
-
[(n+6)*6^(n-1): n in [0..25]]; // Vincenzo Librandi, Aug 06 2013
-
CoefficientList[Series[(1 - 5 x)/(1 - 6 x)^2, {x, 0, 30}], x] (* Vincenzo Librandi, Aug 06 2013 *)
LinearRecurrence[{12,-36},{1,7},30] (* Harvey P. Dale, Nov 07 2013 *)
A082308
Expansion of e.g.f. (1+x)*exp(4*x)*cosh(x).
Original entry on oeis.org
1, 5, 25, 127, 657, 3449, 18281, 97395, 519841, 2773741, 14776377, 78538343, 416367665, 2201517153, 11610231433, 61078202971, 320570884929, 1678897264085, 8775159682649, 45780628812879, 238431945108433
Offset: 0
-
m:=30; R:=PowerSeriesRing(Rationals(), m); b:=Coefficients(R!((1+x)*Exp(4*x)*Cosh(x))); [Factorial(n-1)*b[n]: n in [1..m]]; // G. C. Greubel, Sep 16 2018
-
With[{nmax = 50}, CoefficientList[Series[(1 + x)*Exp[4*x]*Cosh[x], {x, 0, nmax}], x]*Range[0, nmax]!] (* G. C. Greubel, Sep 16 2018 *)
-
x='x+O('x^30); Vec(serlaplace((1+x)*exp(4*x)*cosh(x))) \\ G. C. Greubel, Sep 16 2018
A089944
Square array, read by antidiagonals, where the n-th row is the n-th binomial transform of the natural numbers, with T(0,k) = (k+1) for k>=0.
Original entry on oeis.org
1, 2, 1, 3, 3, 1, 4, 8, 4, 1, 5, 20, 15, 5, 1, 6, 48, 54, 24, 6, 1, 7, 112, 189, 112, 35, 7, 1, 8, 256, 648, 512, 200, 48, 8, 1, 9, 576, 2187, 2304, 1125, 324, 63, 9, 1, 10, 1280, 7290, 10240, 6250, 2160, 490, 80, 10, 1, 11, 2816, 24057, 45056, 34375, 14256, 3773, 704, 99, 11, 1
Offset: 0
Rows begin:
{1, 2, 3, 4, 5, 6, 7,..},
{1, 3, 8, 20, 48, 112, 256,..},
{1, 4, 15, 54, 189, 648, 2187,..},
{1, 5, 24, 112, 512, 2304, 10240,..},
{1, 6, 35, 200, 1125, 6250, 34375,..},
{1, 7, 48, 324, 2160, 14256, 93312,..},
{1, 8, 63, 490, 3773, 28812, 218491,..},..
-
A089944[n_, k_] := (k + n + 1)*(n + 1)^(k - 1);
Table[A089944[k, n - k], {n, 0, 10}, {k, 0, n}] (* Paolo Xausa, Jan 13 2025 *)
-
T(n,k)=if(n<0 || k<0,0,(k+n+1)*(n+1)^(k-1))
Showing 1-4 of 4 results.
Comments