OFFSET
3,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 3..500
FORMULA
a(n) = 14*Hypergeometric2F1([6-n, 9/2], [6], -4), for n >= 6 and a(n) = (n-2)^2 for 3 <= n <= 5. - G. C. Greubel, Jan 30 2024
MATHEMATICA
Table[If[n<6, (n-2)^2, 14*Hypergeometric2F1[6-n, 9/2, 6, -4]], {n, 3, 40}] (* G. C. Greubel, Jan 30 2024 *)
PROG
(Magma) [n le 6 select (n-2)^2 else Round(14*HypergeometricSeries2F1(6-n, 9/2, 6, -4)): n in [3..40]]; // G. C. Greubel, Jan 30 2024
(SageMath)
def A055453(n): return (n-2)^2 if n<6 else 14*hypergeometric([6-n, 9/2], [6], -4).simplify()
[A055453(n) for n in range(3, 41)] # G. C. Greubel, Jan 30 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, May 18 2000
STATUS
approved