A277170 Numerator of 3F2([3*n, -n, n+1],[2*n+1, n+1/2], 1).
1, -1, 1, -1, 1, -3, 1, -1, 25, -1, 1, -49, 1, -1, 9, -3, 1, -363, 3025, -1, 169, -169, 1, -3, 1, -49, 289, -289, 7225, -361, 361, -361, 1, -1, 1, -529, 529, -529, 330625, -148225, 3025, -675, 9, -3, 7569, -2523, 142129, -409757907, 808201, -961, 8649, -2883, 1, -147
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] // Numerator; Table[a[n], {n, 0, 53}] (* Jean-François Alcover, Oct 22 2016 *)
Comments