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.
%I A319365 #11 Sep 08 2022 08:46:23
%S A319365 1,1,2,6,30,150,900,6300,51660,464940,4649400,51143400,614968200,
%T A319365 7994586600,111924212400,1678863186000,26865216378000,456708678426000,
%U A319365 8220756211668000,156194368021692000,3123907159441068000,65602050348262428000,1443245107661773416000,33194637476220788568000
%N A319365 Expansion of e.g.f. exp(x^4/4)/(1 - x).
%H A319365 Robert Israel, <a href="/A319365/b319365.txt">Table of n, a(n) for n = 0..449</a>
%F A319365 a(n) ~ n!*exp(1/4).
%F A319365 (n+1)*(n+2)*(n+3)*(n+4)*a(n)-(n+2)*(n+3)*(n+4)*a(n+1)-(n+5)*a(n+4)+a(n+5)=0. - _Robert Israel_, Dec 28 2018
%p A319365 f:= gfun:-rectoproc({(n+1)*(n+2)*(n+3)*(n+4)*a(n)-(n+2)*(n+3)*(n+4)*a(n+1)-(n+5)*a(n+4)+a(n+5)},seq(a(i)=[1,1,2,6,30][i+1],i=0..4)},a(n),remember):
%p A319365 map(f, [$0..30]); # _Robert Israel_, Dec 28 2018
%t A319365 nmax = 23; CoefficientList[Series[Exp[x^4/4]/(1 - x), {x, 0, nmax}], x] Range[0, nmax]!
%o A319365 (Magma) m:=30; R<x>:=PowerSeriesRing(Rationals(), m); b:=Coefficients(R!( Exp(x^4/4)/(1-x))); [Factorial(n-1)*b[n]: n in [1..m]]; // _Vincenzo Librandi_, Dec 28 2018
%Y A319365 Cf. A000138, A000522, A030975, A060706, A130905, A319364.
%K A319365 nonn
%O A319365 0,3
%A A319365 _Ilya Gutkovskiy_, Sep 17 2018