OFFSET
0,1
LINKS
J. Borwein et al., Experimentation in Mathematics, 2004, section 1.2.
E. W. Weisstein, Infinite Product, MathWorld.
EXAMPLE
0.99801282617298278419003981450896856553...
MATHEMATICA
f[k_] := Sin[(-1)^(k/10)*Pi]; RealDigits[Pi/(5*Sinh[Pi])*Product[f[k], {k, {2, 4, 6, 8}}]/ Product[f[k], {k, {1, 3, 7, 9}}] // Re, 10, 105] // First (* Jean-François Alcover, Feb 12 2013 *)
CROSSREFS
KEYWORD
AUTHOR
R. J. Mathar, Feb 01 2009
EXTENSIONS
More terms from Jean-François Alcover, Feb 12 2013
STATUS
approved