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