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 A364816 #18 Nov 07 2023 04:32:55
%S A364816 1,4,38,587,12607,347158,11668113,463118041,21199488803,1099465138203,
%T A364816 63715991036964,4080500855334901,286178278238641752,
%U A364816 21813909692571410084,1795659553423061982001,158754024731440581761116,15002712207593790179795284,1509215071938528737864389367,161017605699030302902310357883
%N A364816 Number of labeled forests of rooted Greg hypertrees with n white vertices.
%C A364816 A Greg hypertree is a hypertree with black and white vertices, such that black vertices are unlabeled and have at least two incoming edges.
%F A364816 E.g.f: series reversion of (log(1+t)-exp(t)+t+1)*exp(-t).
%F A364816 a(n) ~ sqrt((1+s)*(2+s)/((1+r)*(3 + s*(3+s)))) * n^(n-1) / (exp(n) * r^(n - 1/2)), where s = 0.3900539630495916058133890253422601894372373496844... is the root of the equation exp(-s + 1/(1+s)) = 1+s and r = exp(-s)*(1 + 1/(1+s)) - 1 = 0.1640664235584946357534702598223332293549130374395... - _Vaclav Kotesovec_, Oct 24 2023
%t A364816 Rest[CoefficientList[InverseSeries[Series[E^-x (1 + x + Log[1 + x]) - 1, {x, 0, 20}], x], x] * Range[0, 20]!] (* _Vaclav Kotesovec_, Oct 24 2023 *)
%o A364816 (PARI) my(t='t+O('t^25)); Vec(serlaplace(serreverse((log(1+t)-exp(t)+t+1)*exp(-t)))) \\ _Michel Marcus_, Oct 21 2023
%Y A364816 Cf. A005264, A052888.
%K A364816 nonn,easy
%O A364816 1,2
%A A364816 _Paul Laubie_, Oct 21 2023