[math-fun] near identity for Catalan

or possibly a true identity (?) negaodd posieven Catalan == {0.9992596423851822204, 0.9999976893644401925, 0.9999999241377495063, 0.9999999985217359313, 0.9999999999896304167} with "negaodd" defined as sum(p prime, p mod 4=1, 1-1/p^2) and "posieven" defined as sum(p prime, p mod 4=3, 1+1/p^2) negaodd= Table[N[ Product[p=Prime[q];w=If[Mod[p+1,4]===2,p^2, Infinity];1-1/w,{q,1,10^w}] ,20], {w,5}] posieven= Table[N[ Product[p=Prime[q];w=If[Mod[p+1,4]===0,p^2, Infinity];1+1/w,{q,1,10^w}] ,20], {w,5}] nothing under http://mathworld.wolfram.com/CatalansConstant.html Wouter.