A053106 a(n) = ((7*n+10)(!^7))/10(1^7), related to A034830 (((7*n+3)(!^7))/3 sept-, or 7-factorials).

1, 17, 408, 12648, 480624, 21628080, 1124660160, 66354949440, 4379426663040, 319698146401920, 25575851712153600, 2225099098957363200, 209159315301992140800, 21125090845501206220800

Offset

0,2

Comments

Row m=10 of the array A(8; m,n) := ((7*n+m)(!^7))/m(!^7), m >= 0, n >= 0.

Links

G. C. Greubel, Table of n, a(n) for n = 0..337

Formula

a(n) = ((7*n+10)(!^7))/10(!^7) = A034830(n+2)/10.

E.g.f.: 1/(1-7*x)^(17/7).

Mathematica

s=1; lst={s}; Do[s+=n*s; AppendTo[lst, s], {n, 16, 5!, 7}]; lst (* Vladimir Joseph Stephan Orlovsky, Nov 08 2008 *)
With[{nn = 30}, CoefficientList[Series[1/(1 - 7*x)^(17/7), {x, 0, nn}], x]*Range[0, nn]!] (* G. C. Greubel, Aug 16 2018 *)

Prog

(PARI) x='x+O('x^30); Vec(serlaplace(1/(1-7*x)^(17/7))) \\ G. C. Greubel, Aug 16 2018
(Magma) m:=30; R<x>:=PowerSeriesRing(Rationals(), m); b:=Coefficients(R!(1/(1-7*x)^(17/7))); [Factorial(n-1)*b[n]: n in [1..m]]; // G. C. Greubel, Aug 16 2018

Crossrefs

Cf. A051188, A045754(n+1), A034829-A034834(n+1), A053104-A053106 (rows m=0..10).

Sequence in context: A007925 A097201 A361713 * A158541 A114357 A142997

Adjacent sequences: A053103 A053104 A053105 * A053107 A053108 A053109

Keyword

easy,nonn

Author

Wolfdieter Lang

Status

approved