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 A317406 #11 Mar 26 2019 11:53:13
%S A317406 0,1,2,5,12,1,-450,-6931,-89096,-1120895,-14394150,-191263051,
%T A317406 -2638282812,-37716883775,-556075744042,-8385570334051,
%U A317406 -127637336779920,-1916072623603199,-27033275598036174,-311878728377256475,-918069644450841860,120594465496571606401,6362190374664242284782
%N A317406 Expansion of e.g.f. sin(x/(1 - x)).
%C A317406 Lah transform of the sequence 0, 1, 0, -1, 0, 1, 0, -1, ...
%H A317406 N. J. A. Sloane, <a href="/transforms.txt">Transforms</a>
%F A317406 a(n) = Sum_{k=1..floor((n+1)/2)} (-1)^(k+1)*binomial(n-1,2*k-2)*n!/(2*k-1)!.
%p A317406 a:=series(sin(x/(1 - x)), x=0, 22): seq(n!*coeff(a, x, n), n=0..21); # _Paolo P. Lava_, Mar 26 2019
%t A317406 nmax = 22; CoefficientList[Series[Sin[x/(1 - x)], {x, 0, nmax}], x] Range[0, nmax]!
%t A317406 Table[Sum[(-1)^(k + 1) Binomial[n - 1, 2 k - 2] n!/(2 k - 1)!, {k, Floor[(n + 1)/2]}], {n, 0, 22}]
%t A317406 Join[{0}, Table[n! HypergeometricPFQ[{1/2 - n/2, 1 - n/2}, {1/2, 1, 3/2}, -1/4], {n, 22}]]
%Y A317406 Cf. A088313, A219613, A317409.
%K A317406 sign
%O A317406 0,3
%A A317406 _Ilya Gutkovskiy_, Jul 27 2018