for($c=3429;$b=$c-=27;$e=$d%1e8){
 for(;--$b;){
  $d=$d*$b+($e?$f[$b]:2)*1e8;
  $f[$b]=$d%($g=2*$b-1);
  $d=0|$d/$g
 }
 printf$e?'%08d':'%d.',$e+$d/1e8
}

##</code><code>##

#        1         2         3         4         5         6
#234567890123456789012345678901234567890123456789012345678901
m_;--$h?$%=($f[$h]=$h--/2*$%+$f[$h%=7875]%$h*1e8)/$h:+printf$
a?"%08d":"3.",$a%1e8+($a=$%)/1e8for@f=(2)x5e5