OFFSET
5,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 5..500
FORMULA
a(n) = A055450(n, n-5), n >= 5.
a(n) = 132*Hypergeometric2F1([10-n, 13/2], [8], -4), for n >= 10. - G. C. Greubel, Jan 30 2024
MATHEMATICA
Join[{1, 6, 20, 48, 90}, Table[132*Hypergeometric2F1[10-n, 13/2, 8, -4], {n, 10, 40}]] (* G. C. Greubel, Jan 30 2024 *)
PROG
(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
(SageMath)
def A055455(n): return (1, 6, 20, 48, 90)[n-5] if n<10 else 132*hypergeometric([10-n, 13/2], [8], -4).simplify()
[A055455(n) for n in range(5, 41)] # G. C. Greubel, Jan 30 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, May 18 2000
EXTENSIONS
a(13) corrected and more terms from Sean A. Irvine, Mar 21 2022
STATUS
approved