import sequtils,strutils

proc f(i : int) : int =
  toBin(i + 1,16).count('1')
  
proc f2(i : int,dp : var seq[int],n : int) =
  var fi = f i
  var a = dp[i] + 1
  if (i + fi) < n:
    var b = dp[i + fi]
    if b > a:
      dp[i + fi] = a
      f2(i + fi,dp,n)
  if (i - fi) >= 0:
    var c = dp[i - fi]
    if c > a:
      dp[i - fi] = a
      f2(i - fi,dp,n)
  else: return

var n = parseInt readLine stdin
var dp = repeat(20000,n)
dp[0] = 1
f2(0,dp,n)
echo if dp[n - 1] == 20000: -1 else: dp[n - 1]