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 A231634 #34 Nov 14 2018 01:05:51
%S A231634 1,3,15,105,2835,31185,2027025,91216125,10854718875,206239658625,
%T A231634 7795859096025,4482618980214375,72512954091703125,
%U A231634 99850337784275203125,37643577344671751578125,8168656283793770092453125,12518528979807790079765625
%N A231634 a(n) is the denominator of the probability that n segments of length 2, each placed randomly on a line segment of length 2n, will completely cover the line segment.
%C A231634 Denominators of the probability function defined in A231580.
%F A231634 Denominator of f(n) where f(0)=1 and f(n) = Sum_{k=0..n-1} f(n)*f(n-k-1)/(2*n-1). - _Michael Somos_, Mar 01 2014
%e A231634 1, 2/3, 7/15, 34/105, 638/2835, 4876/31185, 220217/2027025, 6885458/91216125, 569311642/10854718875, 7515775348/206239658625, 197394815194/7795859096025, ...
%t A231634 f[g_List, l_] := f[g, l] = Sum[f[g[[;; n]], l] f[g[[n + 1 ;;]], l], {n, Length[g] - 1}]/(Total[l + g] - 2 l + 1);
%t A231634 f[{_}] = f[{_}, _] = 1;
%t A231634 f[ConstantArray[0, #], 2] & /@ Range[2, 20] // Denominator
%o A231634 (PARI) f=[1]; for(n=2, 25, f=concat(f, sum(k=1, n-1, (f[k]*f[n-k])) / (2*n-3))); f
%o A231634 vector(#f, k, denominator(f[k])) \\ _Colin Barker_, Jul 24 2014, sequence shifted by 1 index
%Y A231634 Cf. A231580.
%K A231634 nonn,frac
%O A231634 1,2
%A A231634 _Philipp O. Tsvetkov_, Nov 12 2013
%E A231634 More terms from _Colin Barker_, Jul 24 2014
%E A231634 Name edited by _Jon E. Schoenfield_, Nov 13 2018