by@progrunner17
WA
module c;reg d;initial while($fscanf(1<<31,"%b",d))$write(($sqrt(d*8+1)-1)/2%1==0);endmodule
01011001 01101101 10010100 11011101 11010010 11111101 00111000 00111011 10111110 11101001 00000011 00001010 10010101 10000100 01101001 10101011 01000011 01011011 00110111 00010101 01100010 00101101 00000000 11111101 11101111 00011100 01000010 01111000 00001111 01111000 00100100 10001000 11001100 01011101 11011100 10011001 00000110 10000000 10011011 01000110 00001110 10011111 01001110 11100111 00000001 01110101 00011101 01101100 01010001 11100101
11111111111111111111111111111111111111111111111111