n=100000;
nop=0;
nop2=0;
for i =1:2:n
    if isprime(i)
        nop2=nop2+1;
    else
        if pow(5,i-1,i)==1 && pow(3,i-1,i) && pow(2,i-1,i)
            i
            nop=nop+1;
        end
    end
end
nop
nop2