program main
  implicit none
  integer(8) :: N,K
  integer(8),allocatable :: A(:)
  integer(8),allocatable :: num(:)
  logical,allocatable :: flag(:)
  integer(8) :: loopnum
  integer(8) :: now, loop_start, now_save
  integer(8) :: step
  integer(8) :: i,j
  
  read(*,*) N,K
  allocate(A(N))
  read(*,*) A(:)
  allocate(flag(N))
  allocate(num(N))
  flag(:) = .false.
  flag(1) = .true.
  num(1) = 0
  now = 1
  now = A(now)
  do i = 1,N+1
     if ( flag(now) ) then
        exit
     else 
        flag(now) = .true.
        num(now) = i
        now = A(now)
     end if
  end do
  ! loop num
  loopnum = i - num(now)
  now_save = now
  now = 1
  do i = 1,N
     now = A(now)
     if (now == now_save ) exit
  end do
  if (  K  <= (loopnum + i) ) then
     now = 1
     do i = 1,K
        now = A(now)
     end do
     write(*,'(i0)') now
     stop
  end if
  !write(*,*) loopnum
  step = mod( K-num(now), loopnum )
  !write(*,*) now,step
  now = now_save
  do i = 1,step
     !num(int(now)) = i
     now = A(now)
  end do
  write(*,'(i0)') now
end program main
