module a;real x;initial while($write($fscanf(1<<31,"%b",x)==(8*x+1)**0.5%2));endmodule