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