(define (solve n)
  (let loop ([i 0]
             [n n]
             [mx n])
    (cond [(= n 1) (list i mx)]
          [(even? n) (loop (+ i 1) (quotient n 2) (max mx (quotient n 2)))]
          [else (loop (+ i 1) (+ (* 3 n) 1) (max mx (+ (* 3 n) 1)))])))

(define (main args)
  (let ([n (read)])
    (map print (solve n)))
  0)