by@progrunner17
WA
module c;integer c,d;initial begin while($fscanf(1<<31,"%b",d))$write($sqrt(d+1)-1==d*2);end endmodule
10101011 11100010 00000100 11100111 10011001 00010100 10011001 01010111 00001010 11101100 11101110 01011011 10010110 00000000 00010101 00011011 11100100 00010010 11101010 11010010 01010110 00000110 00100100 11100101 10100001 01111000 01101001 10000011 10000100 01100110 01111111 10111110 00101000 00001111 01101001 01001110 00101101 01100111 00000001 00101110 00000011 10100100 01000010 10001000 11111101 00110111 00011100 01011001 00111001 10101001
00000000000001000000000000000000000000000000000000