|
%I #6 May 12 2021 12:08:23
%S 1,2,72,3960,354816,47952000,9169459200,2363720486400,791505727488000,
%T 334400903553024000,174128130895380480000,109627479651269099520000,
%U 82122139255681984757760000,72210265570358144925696000000,73668698593180294904178278400000,86324332785379145107697958912000000
%N a(n) = (2*n)! * hypergeom([3/2, 2, 1-n], [3, 2 - 2*n], 4) for n >= 1 and a(0) = 1.
%F a(n) * Catalan(n - 1) = (2*n)! * A127632(n) for n >= 1.
%t a[n_] := (2 n)! HypergeometricPFQ[{3/2, 2, 1 - n}, {3, 2 - 2n}, 4]; a[0] := 1;
%t Table[a[n], {n, 0, 15}]
%Y Cf. A127632.
%K nonn
%O 0,2
%A _Peter Luschny_, May 12 2021
|
