|
%I #9 Jul 05 2018 12:16:32
%S 1,207775,566828686621,9011375448568566265,
%T 545354187810192396620158501,96830939680123110993863214244502671,
%U 42331916293179268263941025436198550595621985
%N a(n) = (3*(n-1)+3)! *(3*(n-1)+6)! *2F2(3*n+1,3*n+4; 4,7; 1)/( 3! *6! *exp(1)), where 2F2(;;) is the generalized hypergeometric series.
%p A072679 := proc(n)
%p (3*(n-1)+3)! *(3*(n-1)+6)! *hypergeom([3*n+1,3*n+4],[ 4,7], 1)/( 3! *6! *exp(1)) ;
%p simplify(%) ;
%p end proc:
%p seq(A072679(n),n=1..5) ; # _R. J. Mathar_, Nov 08 2011
%t Table[(3*(n-1)+3)! * (3*(n-1)+6)! * HypergeometricPFQ[{3*n+1,3*n+4},{4,7},1] /( 3! *6! *E), {n,1,20}] (* _Vaclav Kotesovec_, Jul 05 2018 *)
%K nonn
%O 1,2
%A _Karol A. Penson_, Jul 01 2002
|
