program test
implicit none

integer(8)::n,x,a
integer(8):: i,j,k,fib(0:50),pat(0:50),level

read(*,*) n,x

	fib(0) = 1
	pat(0) = 1
	do i=1,50
		fib(i) = 2*fib(i-1)+3
		pat(i) = 2*pat(i-1)+1
	enddo

a =  ans(n,x)

write(*,*) a

!もし下からの指定された層数がハンバーガーの半分をこえていたら、パティ層数から、指定されてない部分を引く


!そうでなければ、レベルn-1バーガーの、x-1層目までのパティ数を数える

contains

recursive integer(8) function ans(n,x) result(res)
	implicit none
	integer(8):: n,x

	if(x==0) then
		res = 0
	else if(n==0 .and. x==1)then
		res = 1
	else if(2*x > fib(n))then
		res = pat(n) - ans(n,fib(n)-x)
	else
		res = ans(n-1,x-1)
	endif
	
	return
	
end function

end program