uslov1([],_).
uslov2(_,[]).

uslov2([G|R],[X|Y]):- X=:=2*G, uslov1(R,[X|Y]).
uslov1([G|R],[X|Y]):- G=:=3*X, uslov2([G|R],Y).

uslov(A,B):-uslov2(A,B).

/*  Poziva se sa: uslov(Prva_lista,Druga_lista)  */