|
%I #8 Nov 26 2017 19:31:47
%S 1,18,714,32175,1531530,75167268,3762157035,190878381495,
%T 9781950631050,505159120481400,26246321470970964,1370400311694822954,
%U 71844872838316074315,3779480916094795749180,199405648908172208299875,10547211550872819183622800,559103542410000371874708618
%N a(n) = (9*n)!*(4*n)!/((8*n)!*(3*n)!*(2*n)!).
%F G.f.: hypergeom([1/9, 2/9, 4/9, 5/9, 7/9, 8/9], [1/8, 3/8, 1/2, 5/8, 7/8], 14348907/262144*x).
%t f[n_] := (9 n)! (4 n)!/((8 n)!*(3 n)! (2 n)!); Array[f, 17, 0] (* or *)CoefficientList[ Series[ HypergeometricPFQ[{1/9, 2/9, 4/9, 5/9, 7/9, 8/9}, {1/8, 3/8, 1/2, 5/8, 7/8}, 14348907/262144 x], {x, 0, 16}], x] (* _Robert G. Wilson v_, Nov 23 2017 *)
%Y Cf. A295431.
%K nonn
%O 0,2
%A _Gheorghe Coserea_, Nov 23 2017
|
