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.

A051688 a(n) = (5*n+7)(!^5)/7(!^5), related to A034323 ((5*n+2)(!^5) quintic, or 5-factorials).

This page as a plain text file.
%I A051688 #14 Sep 08 2022 08:44:59
%S A051688 1,12,204,4488,121176,3877632,143472384,6025840128,283214486016,
%T A051688 14727153272832,839447736551424,52045759666188288,3487065897634615296,
%U A051688 251068744629692301312,19332293336486307201024
%N A051688 a(n) = (5*n+7)(!^5)/7(!^5), related to A034323 ((5*n+2)(!^5) quintic, or 5-factorials).
%C A051688 Row m=7 of the array A(6; m,n) := ((5*n+m)(!^5))/m(!^5), m >= 0, n >= 0.
%H A051688 G. C. Greubel, <a href="/A051688/b051688.txt">Table of n, a(n) for n = 0..353</a>
%F A051688 a(n) = ((5*n+7)(!^5))/7(!^5) = A034323(n+2)/7.
%F A051688 E.g.f.: 1/(1-5*x)^(12/5).
%t A051688 s=1;lst={s};Do[s+=n*s;AppendTo[lst, s], {n, 11, 5!, 5}];lst (* _Vladimir Joseph Stephan Orlovsky_, Nov 08 2008 *)
%t A051688 With[{nn = 30}, CoefficientList[Series[1/(1 - 5*x)^(12/5), {x, 0, nn}], x]*Range[0, nn]!] (* _G. C. Greubel_, Aug 15 2018 *)
%o A051688 (PARI) x='x+O('x^30); Vec(serlaplace(1/(1-5*x)^(12/5))) \\ _G. C. Greubel_, Aug 15 2018
%o A051688 (Magma) m:=30; R<x>:=PowerSeriesRing(Rationals(), m); b:=Coefficients(R!(1/(1-5*x)^(12/5))); [Factorial(n-1)*b[n]: n in [1..m]]; // _G. C. Greubel_, Aug 15 2018
%Y A051688 Cf. A052562, A008548(n+1), A034323(n+1), A034300(n+1), A034301(n+1), A034325(n+1), A051687-A051691 (rows m=0..10).
%K A051688 easy,nonn
%O A051688 0,2
%A A051688 _Wolfdieter Lang_