m:-between(1,10000,N),name(N,A),sort(A,B),length(B,C),C=2,\+writeln(N).