by@kurgm
AC
$Input|%{+!([Math]::Sqrt([Convert]::ToByte($_,2)*8+1)%1)}
10101011 00001010 11101000 01110111 10111110 01110001 10011001 01011011 11010010 00101001 11100111 01001110 00000001 00010001 10111011 11011010 01000000 01000010 10010010 11011000 11100111 00000000 10001000 00110111 00001111 00011100 01111000 11100110 11001000 00000011 00010100 00110011 10001100 10011010 11000100 00000110 00110000 00010101 11111101 10011000 00101101 00010110 10101100 11101010 10001011 10001001 01101001 01011101 00001111 00100100
1 1 0 0 1 0 1 1 1 0 1 1 1 0 0 0 0 1 0 0 1 1 1 1 1 1 1 0 0 1 0 0 0 0 0 1 0 1 1 0 1 0 0 0 0 0 1 0 1 1