$_=<>+0;$s+=$a%10%3>0while$a+=3,$a<=$_&&$a<90;$s+=($&/3|0)*4**length,$&%3&&y//9/cwhile s/.//;print$s-3