<>;$a+=.9**++$n*2**($_/800)for<>;print 1154*log($a/($t=1-.9**$n)/9)+357-357/$t*sqrt(1-.81**$n)