あんまり綺麗ではないし、短くもないと思う。
#runtime "hsp3cl" repeat 100,1 c=str(cnt):if cnt\3=0|instr(c,0,"3")!=-1:mes "アホ":else:mes cnt loop