#0000000011111111112222222222333333333344444444445555555555 #2345678901234567890123456789012345678901234567890123456789 $o=1;$t=3;for(1..1e5){$e+=(4/$o)-(4/$t);$o+=4;$t+=4}print$e