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 A364660 #13 Aug 02 2023 07:07:12 %S A364660 1,1,-3,7,-77,231,-1463,4807,-129789,447051,-3129357,11094993, %T A364660 -159028233,574948227,-4188908511,15359331207,-906200541213, %U A364660 3358272593907,-25000473754641,93422822977869,-1401342344668035,5271716439465465,-39777496770512145,150462705175415505,-4564035390320936985 %N A364660 Numerators of coefficients in expansion of (1 + x)^(1/4). %e A364660 (1 + x)^(1/4) = 1 + x/4 - 3*x^2/32 + 7*x^3/128 - 77*x^4/2048 + 231*x^5/8192 - 1463*x^6/65536 + ... %e A364660 Coefficients are 1, 1/4, -3/32, 7/128, -77/2048, 231/8192, -1463/65536, ... %t A364660 nmax = 24; CoefficientList[Series[(1 + x)^(1/4), {x, 0, nmax}], x] // Numerator %t A364660 Table[Binomial[1/4, n], {n, 0, 24}] // Numerator %o A364660 (PARI) my(x='x+O('x^30)); apply(numerator, Vec((1 + x)^(1/4))) \\ _Michel Marcus_, Aug 02 2023 %Y A364660 Denominators are A088802, A123854. %Y A364660 Cf. A002596, A004130, A008545, A067622, A364661. %K A364660 sign,frac %O A364660 0,3 %A A364660 _Ilya Gutkovskiy_, Aug 01 2023