def rec(l,x)
  return 1 if l==0
  if x==$s[l]-1
    return $p[l]
  elsif x>$s[l]/2
    return rec(l-1,x-$s[l]/2-1)+$p[l-1]+1
  elsif x==$s[l]/2
    return $p[l-1]+1
  elsif x>0
    return rec(l-1,x-1)
  else
    return 0
  end
end

n,x=gets.split.map(&:to_i)
$p=[1]
$s=[1]
n.times{
  $p << 2*$p.last+1
  $s << 2*$s.last+3
}

puts rec(n,x-1)