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 A055455 #14 Jan 30 2024 04:10:54 %S A055455 1,6,20,48,90,132,561,2420,10571,46672,207963,934064,4224685,19225588, %T A055455 87969426,404479884,1867924322,8660317820,40295911480,188105782260, %U A055455 880716750140,4134823623820,19461238795225,91810738725036,434062054130187,2056265327125528 %N A055455 a(n) = A055450(n, n-5). %H A055455 G. C. Greubel, <a href="/A055455/b055455.txt">Table of n, a(n) for n = 5..500</a> %F A055455 a(n) = A055450(n, n-5), n >= 5. %F A055455 a(n) = 132*Hypergeometric2F1([10-n, 13/2], [8], -4), for n >= 10. - _G. C. Greubel_, Jan 30 2024 %t A055455 Join[{1,6,20,48,90}, Table[132*Hypergeometric2F1[10-n,13/2,8,-4], {n, 10, 40}]] (* _G. C. Greubel_, Jan 30 2024 *) %o A055455 (Magma) [1,6,20,48,90] cat [Floor(132*HypergeometricSeries2F1(10-n,13/2,8,-4)): n in [10..40]]; // _G. C. Greubel_, Jan 30 2024 %o A055455 (SageMath) %o A055455 def A055455(n): return (1,6,20,48,90)[n-5] if n<10 else 132*hypergeometric([10-n,13/2],[8],-4).simplify() %o A055455 [A055455(n) for n in range(5,41)] # _G. C. Greubel_, Jan 30 2024 %Y A055455 Cf. A055450, A055451, A055452, A055453, A055454. %K A055455 nonn %O A055455 5,2 %A A055455 _Clark Kimberling_, May 18 2000 %E A055455 a(13) corrected and more terms from _Sean A. Irvine_, Mar 21 2022