sub f{my($_,$i)=@_;$i-5?f($_,$i+1)+f($_/(3,5,17,257,65537)[$i]|0,$i+1):$_&&0|1+log()/log 2}print-2+f<>