|
%I #9 Nov 17 2016 09:41:32
%S 1,3,5,7,11,143,221,323,7429,437,667,20677,899,33263,1363783,2022161,
%T 3065857,3065857,162490421,4391633,259106347,385499687,8965109,
%U 600662303,907383479,66238993967,66238993967,98733594781,8194888366823
%N Numerator of coefficient of (-x^2)^n in F(x)*F(-x) where F(x)=sum(k>=0,x^k/(k!)^3).
%D Bruce Berndt, Ramanujan's Notebooks Part II, Springer-Verlag; see Hypergeometric series, p. 62.
%F F(x)*F(-x)=sum(n>=0, (3n)!/(n!)^3/((2n)!)^3*(-x^2)^n)
%t F[x_] := HypergeometricPFQ[{}, {1, 1}, x]; F[x]*F[-x] + O[x]^58 // CoefficientList[#, x^2]& // Numerator // Abs (* _Jean-François Alcover_, Nov 17 2016 *)
%Y Cf. A068112.
%K easy,frac,nonn
%O 0,2
%A _Benoit Cloitre_, Mar 21 2002
|
