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 A094729 #24 Aug 07 2023 11:14:06
%S A094729 0,1,1,7,37,151,541,1807,5797,18151,55981,171007,519157,1569751,
%T A094729 4733821,14250607,42850117,128746951,386634061,1160688607,3483638677,
%U A094729 10454061751,31368476701,94118013007,282379204837,847187946151,2541664501741,7625194831807
%N A094729 Number of connected ordered 2-element multiantichains on a labeled n-set.
%H A094729 G. C. Greubel, <a href="/A094729/b094729.txt">Table of n, a(n) for n = 0..1000</a>
%H A094729 <a href="/index/Rec#order_03">Index entries for linear recurrences with constant coefficients</a>, signature (6,-11,6).
%F A094729 E.g.f.: exp(3*x) - 3*exp(2*x) + 4*exp(x) - 2.
%F A094729 From _Colin Barker_, Jul 07 2013: (Start)
%F A094729 a(n) = 4-3*2^n+3^n for n>0.
%F A094729 a(n) = 6*a(n-1)-11*a(n-2)+6*a(n-3) for n>3.
%F A094729 G.f.: x*(1 - 5*x + 12*x^2) / ((1 - x)*(1 - 2*x)*(1 - 3*x)).
%F A094729 (End)
%t A094729 With[{nmax = 50}, CoefficientList[Series[Exp[3*x] - 3*Exp[2*x] + 4*Exp[x] - 2, {x, 0, nmax}], x]*Range[0, nmax]!] (* _G. C. Greubel_, Oct 06 2017 *)
%t A094729 LinearRecurrence[{6,-11,6},{0,1,1,7},30] (* _Harvey P. Dale_, Aug 07 2023 *)
%o A094729 (PARI) x='x+O('x^50); concat([0], Vec(serlaplace(exp(3*x)-3*exp(2*x) +4*exp(x)-2))) \\ _G. C. Greubel_, Oct 06 2017
%o A094729 (PARI) concat(0, Vec(x*(1 - 5*x + 12*x^2) / ((1 - x)*(1 - 2*x)*(1 - 3*x)) + O(x^30))) \\ _Colin Barker_, Oct 13 2017
%Y A094729 Cf. A094033-A094037, A094729-A094738.
%K A094729 nonn,easy
%O A094729 0,4
%A A094729 Goran Kilibarda, _Vladeta Jovovic_, May 24 2004