Prod[1-2^(-k),{k,1,Infinity}]