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 A376137 #7 Oct 05 2024 17:07:41 %S A376137 1,1,-3,-34,495,13631,-467404,-23984426,1490938299,123999435015, %T A376137 -12164649041259,-1497474725212924,212746558833692052, %U A376137 36393896155519042476,-7062273474686464802160,-1603475573855830444120802,407344895625777134555939139,118552169162473363108837155199,-38177398083353809033748641523305 %N A376137 a(0) = 1; a(n) = Sum_{k=0..n-1} (-1)^k * (k+1)^2 * a(k) * a(n-k-1). %F A376137 G.f. A(x) satisfies: A(x) = 1 / (1 - x * A(-x) + 3 * x^2 * A'(-x) - x^3 * A''(-x)). %t A376137 a[0] = 1; a[n_] := a[n] = Sum[(-1)^k (k + 1)^2 a[k] a[n - k - 1], {k, 0, n - 1}]; Table[a[n], {n, 0, 18}] %t A376137 nmax = 18; A[_] = 0; Do[A[x_] = 1/(1 - x A[-x] + 3 x^2 A'[-x] - x^3 A''[-x]) + O[x]^(nmax + 1) // Normal, nmax + 1]; CoefficientList[A[x], x] %Y A376137 Cf. A090192, A105523, A376095, A376134, A376135. %K A376137 sign %O A376137 0,3 %A A376137 _Ilya Gutkovskiy_, Sep 11 2024