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 A246607 #28 Feb 25 2022 11:55:54
%S A246607 1,1,1,-5,-23,-59,241,2311,9745,-30743,-529919,-3161069,6984121,
%T A246607 216832045,1696212337,-2117117729,-138721306079,-1359994188719,
%U A246607 367573878145,127713732858667,1523067770484361,1104033549399061,-159815269852521359,-2270787199743845705,-3946710127731620303
%N A246607 Expansion of e.g.f. exp(x - x^3).
%H A246607 Vincenzo Librandi, <a href="/A246607/b246607.txt">Table of n, a(n) for n = 0..200</a>
%F A246607 From _Seiichi Manyama_, Feb 25 2022: (Start)
%F A246607 a(n) = n! * Sum_{k=0..floor(n/3)} (-1)^k * binomial(n-2*k,k)/(n-2*k)!.
%F A246607 a(n) = a(n-1) - 3! * binomial(n-1,2) * a(n-3) for n > 2. (End)
%t A246607 Range[0, 24]! CoefficientList[Series[Exp[x - x^3], {x, 0, 24}], x] (* _Robert G. Wilson v_, Aug 31 2014, with correction from _Vincenzo Librandi_ *)
%o A246607 (PARI) default(seriesprecision, 30); serlaplace(exp(x-x^3)) \\ _Michel Marcus_, Aug 31 2014
%o A246607 (PARI) a(n) = n!*sum(k=0, n\3, (-1)^k*binomial(n-2*k, k)/(n-2*k)!); \\ _Seiichi Manyama_, Feb 25 2022
%o A246607 (PARI) a(n) = if(n<3, 1, a(n-1)-3!*binomial(n-1, 2)*a(n-3)); \\ _Seiichi Manyama_, Feb 25 2022
%Y A246607 Cf. A118395, A293604.
%K A246607 sign
%O A246607 0,4
%A A246607 _Robert G. Wilson v_, Aug 31 2014