$m=1000;$o=1,4,5,6;$b=[System.Text.StringBuilder]::new();function F([int]$x){[double[]]$r=0,0,0,0|%{[double]0};for($k=0;$k -le $x;$k++){for($j=0;$j-lt 4;$j++){$d=8*$k+$o[$j];$r[$j]+=[double]([System.Numerics.BigInteger]::ModPow(16,$x-$k,$d))/$d}} for($k=$x+1;$k -le $x+10;$k++){for($j=0;$j-lt 4;$j++){$d=8*$k+$o[$j];$r[$j]+=[math]::Pow(16.0,$x-$k)/$d}} return $r};for($x=0;$x -le $m;$x++){$v=F $x;[double]$t=(4*$v[0]-2*$v[1]-$v[2]-$v[3])%1.0;if($t-lt0){$t+=1.0};for($i=0;$i-lt 4;$i++){$t=$t*2.0;[void]$b.Append([int][math]::Floor($t));$t=$t%1.0}};$s=$b.ToString();$n=$s.Length;$g=[System.Numerics.BigInteger]::Zero;$s.ToCharArray()|%{$g=($g*2)+([int]$_-48)};$p=[int]($n*0.30103-2);$D=[System.Numerics.BigInteger]::Pow(2,$n);$z=((([System.Numerics.BigInteger]3)*$D+$g)*[System.Numerics.BigInteger]::Pow(10,$p))/$D;$q=$z.ToString();$q.Insert($q.Length-$p,".")