$Input|%{+!([Math]::Sqrt([Convert]::ToByte($_,2)*8+1)%1)}