CL(lb,ub)=
{
forstep(n=lb,ub,[2],
if(!ispseudoprime(n),
if((Mod(polchebyshev(n,1,3),n)==3),
if((Mod(pollegendre(n,3),n)==3),print(n)))))
}