program non_triangular_triplets
  implicit none
  integer(8) :: n, k, i
  read(*,*) n, k
  if (2_8*k+2_8*n-1_8 <= k+2_8*n) then
    do i = 0_8, n-1_8
      write(*,'(i0,x,i0,x,i0)') k+i, k+2_8*n-1_8-i, k+2_8*n+i
    end do
  else
    write(*,'(i0)') -1
  end if
end program non_triangular_triplets