OFFSET
0,1
LINKS
J. Borwein et al., Experimentation in Mathematics, 2004, section 1.2.
E. W. Weisstein, Infinite Product, MathWorld.
EXAMPLE
0.99599126589340465511919...
MATHEMATICA
p = 2/3*Product[Gamma[2 + (-1)^(k + k/9)], {k, {1, 2, 4, 5, 7, 8}}]/ Product[Gamma[2 - (-1)^(k + k/9)], {k, {1, 2, 4, 5, 7, 8}}]; RealDigits[Re[p], 10, 105][[1]] (* Jean-François Alcover, Feb 11 2013, updated Nov 18 2015 *)
CROSSREFS
KEYWORD
AUTHOR
R. J. Mathar, Feb 01 2009
EXTENSIONS
More terms from Jean-François Alcover, Feb 11 2013
STATUS
approved