|
|
A034832
|
|
a(n) = n-th sept-factorial number divided by 5.
|
|
8
|
|
|
1, 12, 228, 5928, 195624, 7824960, 367773120, 19859748480, 1211444657280, 82378236695040, 6178367752128000, 506626155674496000, 45089727855030144000, 4328613874082893824000, 445847229030538063872000, 49043195193359187025920000, 5738053837623024882032640000
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
5*a(n) = (7*n-2)(!^7) = Product_{j=1..n} (7*j-2).
E.g.f.: (-1 + (1-7*x)^(-5/7))/5.
Sum_{n>=1} 1/a(n) = 5*(e/7^2)^(1/7)*(Gamma(5/7) - Gamma(5/7, 1/7)). (End)
|
|
MATHEMATICA
|
Rest[FoldList[Times, 1, 7*Range[20]-2]/5] (* Harvey P. Dale, May 30 2013 *)
Drop[With[{nn = 50}, CoefficientList[Series[(-1 + (1 - 7*x)^(-5/7))/5, {x, 0, nn}], x]*Range[0, nn]!], 1] (* G. C. Greubel, Feb 22 2018 *)
|
|
PROG
|
(PARI) my(x='x+O('x^30)); Vec(serlaplace((-1 + (1-7*x)^(-5/7))/5)) \\ G. C. Greubel, Feb 22 2018
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|