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 A344321 #29 Jan 17 2024 10:35:11
%S A344321 1,1,8,49,246,1157,5248,23256,101398,436865,1865136,7906054,33319388,
%T A344321 139754994,583859968,2430991670,10092510630,41794856985,172699266480,
%U A344321 712220712390,2932169392020,12052941519030,49475929052160,202838118604680
%N A344321 a(n) = 2^(2*n - 5)*binomial(n-5/2, -1/2)*(36*n^4 - 78*n^3 + 54*n^2 - 48*n + 24)/((n + 1)*n*(n - 1)) for n >= 2 and otherwise 1.
%C A344321 Conjecture: These are the number of linear intervals in the Cambrian lattices of type D_n. An interval is linear if it is isomorphic to a total order. The conjecture has been checked up to the term a(8) = 101398.
%C A344321 The term a(3) = 49 is the same as the 49 appearing in A344136.
%H A344321 Clément Chenevière, <a href="https://theses.hal.science/tel-04255439">Enumerative study of intervals in lattices of Tamari type</a>, Ph. D. thesis, Univ. Strasbourg (France), Ruhr-Univ. Bochum (Germany), HAL tel-04255439 [math.CO], 2024. See p. 152.
%H A344321 Peter Luschny, <a href="/A344400/a344400.pdf">Remark regarding A344228 and A344321</a>.
%F A344321 a(n) = (3*n-2)*(1/n+1/2)*binomial(2*n-2,n-1) + 6*(n-2)*binomial(2*n-4,n-2) + (n-1)*(3*n-8)/(2*(2*n-3))*binomial(2*n-2,n-1) + 2 Sum_{k=1..2n-6} binomial(k,n-1)*(n+1+k) for n >= 3.
%F A344321 a(n) = A344401(n) / A007531(n+3) for n >= 2. - _Peter Luschny_, May 17 2021
%p A344321 a := n -> if n < 2 then 1 else 2^(2*n - 5)*binomial(n - 5/2, -1/2)*(36*n^4 - 78*n^3 + 54*n^2 - 48*n + 24)/((n + 1)*n*(n - 1)) fi;
%p A344321 seq(a(n), n = 0..23); # _Peter Luschny_, May 16 2021
%o A344321 (Sage)
%o A344321 def a(n):
%o A344321 if n < 2: return 1
%o A344321 if n == 2: return 8
%o A344321 return (3*n-2)*(1/n+1/2)*binomial(2*n-2,n-1)+6*(n-2)*binomial(2*n-4,n-2)+(n-1)*(3*n-8)/2/(2*n-3)*binomial(2*n-2,n-1)+sum(2*binomial(k,n-1)*(n+1+k) for k in range(n-1,2*n-5))
%o A344321 print([a(n) for n in range(24)])
%Y A344321 Cf. A344136 for the type A, A344228 for the type B.
%Y A344321 Cf. also A344191, A344216 for similar sequences.
%Y A344321 Cf. A344400 and A344401 for an alternative approach.
%Y A344321 Cf. A007531.
%K A344321 nonn
%O A344321 0,3
%A A344321 _F. Chapoton_, May 15 2021
%E A344321 Better name from _Peter Luschny_, May 16 2021