by@akouryy1
AC
f={x->if(x>0)f(int(x/10))*2+x%2else 0} stdin|{x->int(1-sqrt(f(number(x))*8+1)%1)}|puts
11010010 00000001 10101011 00001110 00000011 01000010 10100100 00111101 11000000 01001001 10001000 01010000 11001011 01101001 01011100 01101011 01001110 01110111 00100100 01011110 10011011 10111110 10011001 01001110 00001010 00011110 10110000 11111001 00000000 11111011 00110111 00000110 10010101 01011011 00001111 00000111 11000111 00101101 11110101 10011100 00010101 11100111 01111000 01001110 11101000 00011100 01110011 11111101 01100011 10001001
1 1 1 0 1 1 0 0 0 0 1 0 0 1 0 0 1 0 1 0 0 1 1 1 1 0 0 0 1 0 1 1 0 1 1 0 0 1 0 0 1 1 1 1 0 1 0 1 0 0