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 A317409 #15 Mar 26 2019 16:15:37
%S A317409 1,0,-1,-6,-35,-220,-1501,-10962,-83495,-632952,-4260601,-13852190,
%T A317409 355180981,12991115436,320077652075,7153866992790,155785273182001,
%U A317409 3395838000334352,75000970329466895,1687941779356532682,38803334491247820301,911633573138881234740,21870615120012355726259
%N A317409 Expansion of e.g.f. cos(x/(1 - x)).
%C A317409 Lah transform of the sequence 1, 0, -1, 0, 1, 0, -1, 0, ...
%H A317409 Robert Israel, <a href="/A317409/b317409.txt">Table of n, a(n) for n = 0..446</a>
%H A317409 N. J. A. Sloane, <a href="/transforms.txt">Transforms</a>
%F A317409 a(n) = Sum_{k=0..floor(n/2)} (-1)^k*binomial(n-1,2*k-1)*n!/(2*k)!.
%F A317409 -2*(2*n + 3)*(n + 2)*(n + 1)*a(n + 1) + (6*n^2 + 24*n + 25)*a(n + 2) - 2*(2*n + 5)*a(n + 3) + a(n + 4) + n*(n + 2)*(n + 1)^2*a(n)=0. - _Robert Israel_, Mar 26 2019
%p A317409 a:=series(cos(x/(1 - x)), x=0, 22): seq(n!*coeff(a, x, n), n=0..21); # _Paolo P. Lava_, Mar 26 2019
%t A317409 nmax = 22; CoefficientList[Series[Cos[x/(1 - x)], {x, 0, nmax}], x] Range[0, nmax]!
%t A317409 Table[Sum[(-1)^k Binomial[n - 1, 2 k - 1] n!/(2 k)!, {k, 0, Floor[n/2]}], {n, 0, 22}]
%t A317409 Join[{1}, Table[(1 - n) n! HypergeometricPFQ[{1 - n/2, 3/2 - n/2}, {3/2, 3/2, 2}, -1/4]/2, {n, 22}]]
%o A317409 (PARI) my(x='x + O('x^25)); Vec(serlaplace(cos(x/(1 - x)))) \\ _Michel Marcus_, Mar 26 2019
%Y A317409 Cf. A056594, A088312, A219613, A317406, A317410.
%K A317409 sign
%O A317409 0,4
%A A317409 _Ilya Gutkovskiy_, Jul 27 2018