Самая длинная последовательность в прологе

Мне нужно удалить самую длинную последовательность простых чисел из списка в Прологе. Я новичок в Прологе и не могу найти способ добраться до самой длинной последовательности... Вот что я сделал до сих пор:

divisible(X,Y):-
  0 is X mod Y.
divisible(X,Y):-
  X > Y + 1,
  divisible(X,Y+1).

is_prime(2).
is_prime(3).
is_prime(P):-
  integer(P),
  P>3,
  P mod 2 =\= 0,
  not(divisible(P,3)).

Этот удаляет простые числа из списка.

removeP([],[]).
removeP([H],[H]):-
  not(is_prime(H)).
removeP([H|T],[H|L]):-
  not(is_prime(H)),
  removeP(T,L).
removeP([H|T],L):-
  is_prime(H),
  removeP(T,L).

И вот я пытался найти самую длинную последовательность, но я понятия не имею, что делать дальше

longest([],[]).
longest([H],[H]):-
  is_prime(H).
longest([H],[]):-
  not(in_prime(H)).
longest([H|T],L):-
  ....