A277520 Denominator of 3F2([3*n, -n, n+1],[2*n+1, n+1/2], 1).
1, 3, 25, 147, 1089, 20449, 48841, 312987, 55190041, 14322675, 100100025, 32065374675, 4546130625, 29873533563, 1859904071089, 4089135109921, 9399479144449, 22568149425822049, 1293753708921104809, 2835106739783283, 3289668853728536041
Offset: 0
References
- Jonathan Borwein, David Bailey, Mathematics by Experiment, 2nd Edition: Plausible Reasoning in the 21st Century.
Links
- Seiichi Manyama, Table of n, a(n) for n = 0..1000
Programs
-
Mathematica
a[n_] := HypergeometricPFQ[{3n, -n, n+1}, {2n+1, n+1/2}, 1] // Denominator; Table[a[n], {n, 0, 20}] (* Jean-François Alcover, Oct 22 2016 *)
Comments