m:-between(1,300,X),w(X,A),write(A),nl,fail.
w(X,aho):-X mod 3=:=0,!;number_chars(X,L),member('3',L),!.
w(X,X).