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 A134828 #14 Aug 30 2019 04:03:06 %S A134828 1,0,1,0,1,0,5,0,7,0,21,0,33,0,429,0,715,0,2431,0,4199,0,29393,0, %T A134828 52003,0,185725,0,334305,0,9694845,0,17678835,0,64822395,0,119409675, %U A134828 0,883631595,0,1641030105,0,6116566755,0,11435320455,0,171529806825,0 %N A134828 Numerator of moments of Chebyshev U- (or S-) polynomials. %C A134828 The denominators are given in A134829. %C A134828 Essentially the absolute values of numerators in expansion of sqrt(1+x^2). - _Arkadiusz Wesolowski_, Jan 17 2013 %H A134828 W. Lang, <a href="/A134828/a134828.txt">Rationals and more</a>. %F A134828 a(n) = numerator(r(n)) with r(n) = Integral_{x=-1..+1} (2/Pi)*sqrt(1-x^2)*x^n dx, n >= 0. %F A134828 a(n)=0 if n is odd, a(n) = numerator(C(n/2)/2^n) if n is even, with the Catalan numbers C(n):=A000108(n). %e A134828 Rationals: [1, 0, 1/4, 0, 1/8, 0, 5/64, 0, 7/128, 0, 21/512, 0, 33/1024, 0, ...]. %t A134828 f[n_] := Numerator[CatalanNumber[n]/2^n]; Riffle[Array[f, 24, 0], 0] (* _Arkadiusz Wesolowski_, Jan 17 2013 *) %Y A134828 Cf. A098597 (coincides with numerators for even n). %K A134828 nonn,easy,frac %O A134828 0,7 %A A134828 _Wolfdieter Lang_, Jan 21 2008