cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A053104 a(n) = ((7*n+8)(!^7))/8, related to A045754 ((7*n+1)(!^7) sept-, or 7-factorials).

This page as a plain text file.
%I A053104 #15 Sep 08 2022 08:45:00
%S A053104 1,15,330,9570,344520,14814360,740718000,42220926000,2702139264000,
%T A053104 191851887744000,14964447244032000,1271978015742720000,
%U A053104 117021977448330240000,11585175767384693760000
%N A053104 a(n) = ((7*n+8)(!^7))/8, related to A045754 ((7*n+1)(!^7) sept-, or 7-factorials).
%C A053104 Row m=8 of the array A(8; m,n) := ((7*n+m)(!^7))/m(!^7), m >= 0, n >= 0.
%H A053104 G. C. Greubel, <a href="/A053104/b053104.txt">Table of n, a(n) for n = 0..337</a>
%F A053104 a(n) = ((7*n+8)(!^7))/8(!^7) = A045754(n+2)/8.
%F A053104 E.g.f.: 1/(1-7*x)^(15/7).
%t A053104 s=1;lst={s};Do[s+=n*s;AppendTo[lst, s], {n, 14, 5!, 7}];lst (* _Vladimir Joseph Stephan Orlovsky_, Nov 08 2008 *)
%t A053104 With[{nn = 30}, CoefficientList[Series[1/(1 - 7*x)^(15/7), {x, 0, nn}], x]*Range[0, nn]!] (* _G. C. Greubel_, Aug 16 2018 *)
%o A053104 (PARI) x='x+O('x^30); Vec(serlaplace(1/(1-7*x)^(15/7))) \\ _G. C. Greubel_, Aug 16 2018
%o A053104 (Magma) m:=30; R<x>:=PowerSeriesRing(Rationals(), m); b:=Coefficients(R!(1/(1-7*x)^(15/7))); [Factorial(n-1)*b[n]: n in [1..m]]; // _G. C. Greubel_, Aug 16 2018
%Y A053104 Cf. A051188, A045754(n+1), A034829-34(n+1), A053104-A053106 (rows m=0..10).
%K A053104 easy,nonn
%O A053104 0,2
%A A053104 _Wolfdieter Lang_