|
%I #11 Jan 30 2024 04:10:33
%S 1,5,14,28,42,174,735,3155,13726,60398,268361,1202425,5427110,
%T 24652698,112622124,517102008,2385026330,11045344150,51341255630,
%U 239447037890,1120163788030,5254987411850,24716226207075
%N a(n) = A055450(n, n-4).
%H G. C. Greubel, <a href="/A055454/b055454.txt">Table of n, a(n) for n = 4..500</a>
%F a(n) = A055450(n, n-4).
%F a(n) = 42*Hypergeometric2F1([8-n, 11/2], [7], -4) for n >= 8. - _G. C. Greubel_, Jan 30 2024
%t Join[{1,5,14,28}, Table[42*Hypergeometric2F1[8-n,11/2,7,-4], {n,8,40}]] (* _G. C. Greubel_, Jan 30 2024 *)
%o (Magma) [1,5,14,28] cat [Floor(42*HypergeometricSeries2F1(8-n,11/2,7,-4)): n in [8..40]]; // _G. C. Greubel_, Jan 30 2024
%o (SageMath)
%o def A055454(n): return (1,5,14,28)[n-4] if n<8 else 42*hypergeometric([8-n,11/2],[7],-4).simplify()
%o [A055454(n) for n in range(4,41)] # _G. C. Greubel_, Jan 30 2024
%Y Cf. A055450, A055451, A055452, A055453, A055455.
%K nonn
%O 4,2
%A _Clark Kimberling_, May 18 2000
|
