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