nSeguidas(_,_,[],0).
nSeguidas(_,_,[],N) :- N \= 0, fail.
nSeguidas(X,Y,[X|[Y|Xs]],N) :- nSeguidas(X,Y,[Y|Xs],N1), N is N1+1.
nSeguidas(X,Y,[Z|Zs],N) :- nSeguidas(X,Y,Zs,N).