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 A365668 #48 Feb 16 2025 08:34:06
%S A365668 0,1,7,73,905,12354,179305,2715192,42414021,678476755,11058588574,
%T A365668 182999237590,3066447596459,51926183715280,887204891847960,
%U A365668 15276037569668880,264797324173666845,4617195655522976361,80930337327794271445,1425171253004955494215,25202145191953299213490
%N A365668 G.f. A(x) satisfies: A(x) = x * (1 + A(x))^5 / (1 - 2 * A(x)).
%C A365668 Reversion of g.f. for 4-dimensional figurate numbers A001296 (with signs).
%H A365668 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/SeriesReversion.html">Series Reversion</a>
%F A365668 a(n) = (1/n) * Sum_{k=0..n-1} binomial(n+k-1,k) * binomial(5*n,n-k-1) * 2^k for n > 0.
%F A365668 a(n) ~ sqrt(32 - 19*sqrt(5/2)) * 3^(4*n - 3/2) * 5^(3*n) / (sqrt(Pi) * n^(3/2) * 2^(2*n + 3/2) * (25 + 34*sqrt(10))^n). - _Vaclav Kotesovec_, Sep 27 2023
%t A365668 nmax = 20; A[_] = 0; Do[A[x_] = x (1 + A[x])^5/(1 - 2 A[x]) + O[x]^(nmax + 1) // Normal, nmax + 1]; CoefficientList[A[x], x]
%t A365668 CoefficientList[InverseSeries[Series[x (1 - 2 x)/(1 + x)^5, {x, 0, 20}], x], x]
%t A365668 Join[{0}, Table[1/n Sum[Binomial[n + k - 1, k] Binomial[5 n, n - k - 1] 2^k, {k, 0, n - 1}], {n, 1, 20}]]
%Y A365668 Cf. A001296, A002294, A064063, A365755, A366014, A366035, A366036, A366037.
%K A365668 nonn
%O A365668 0,3
%A A365668 _Ilya Gutkovskiy_, Sep 26 2023