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 A161201 #14 Sep 24 2024 11:25:22 %S A161201 1,7,63,231,3003,9009,51051,138567,2909907,7436429,37182145,91265265, %T A161201 882230895,2103781365,9917826435,23141595015,856239015555, %U A161201 1964313035685,8948537162565,20251952525805,182267572732245 %N A161201 Numerators in expansion of (1-x)^(-7/2). %H A161201 G. C. Greubel, <a href="/A161201/b161201.txt">Table of n, a(n) for n = 0..1000</a> %F A161201 a(n) = numerator(((15+46*n+36*n^2+8*n^3)/15)*binomial(2*n,n)/(4^n)). %F A161201 a(n) = (-1)^n*numerator( binomial(-7/2, n) ). - _G. C. Greubel_, Sep 24 2024 %t A161201 CoefficientList[Series[(1-x)^(-7/2),{x,0,20}],x]//Numerator (* _Harvey P. Dale_, Jan 14 2020 *) %t A161201 Table[(-1)^n*Numerator[Binomial[-7/2, n]], {n, 0, 30}] (* _G. C. Greubel_, Sep 24 2024 *) %o A161201 (Magma) %o A161201 A161201:= func< n | Numerator((n+1)*(2*n+1)*(2*n+3)*(2*n+5)*Catalan(n)/(15*4^n)) >; %o A161201 [A161201(n): n in [0..30]]; // _G. C. Greubel_, Sep 24 2024 %o A161201 (SageMath) %o A161201 def A161201(n): return (-1)^n*numerator(binomial(-7/2,n)) %o A161201 [A161201(n) for n in range(31)] # _G. C. Greubel_, Sep 24 2024 %Y A161201 Cf. A046161 (denominators). %Y A161201 Cf. A161198 (triangle of coefficients of (1-x)^((-1-2*n)/2)). %Y A161201 Numerators of [x^n]( (1-x)^(p/2) ): A161202 (p=5), A161200 (p=3), A002596 (p=1), A001790 (p=-1), A001803 (p=-3), A161199 (p=-5), this sequence (p=-7). %K A161201 easy,nonn,frac %O A161201 0,2 %A A161201 _Johannes W. Meijer_, Jun 08 2009