Result

WA

Code [DL]

00000000  6c 71 79 22 61 64 30 73  12 3d 40 61 2a 32 2b 40  |lqy"ad0s.=@a*2+@|
00000010  40 0a 1b 6c 71 63 30 30  30 1b 71 7a 36 40 79 22  |@..lqc000.qz6@y"|
00000020  62 63 63 12 3d 66 6d 6f  64 28 73 71 72 74 28 40  |bcc.=fmod(sqrt(@|
00000030  62 2a 38 2b 31 29 2c 31  29 3d 3d 30 0a 1b 6a 5e  |b*8+1),1)==0..j^|
00000040  6c 71 34 39 40 7a 5a 5a  0a                       |lq49@zZZ.|
00000049

Disassembly

lqy"ad0s<C-R>=@a*2+@@<NL><Esc>lqc000<Esc>qz6@y"bcc<C-R>=fmod(sqrt(@b*8+1),1)==0<NL><Esc>j^lq49@zZZ<NL>

stdin

01001110
01100010
01111000
10111010
00010101
10001000
11100010
01000101
00000000
10101111
00111010
10111110
00101101
01011011
00011100
10100110
10001101
00000011
01110001
00000001
01100001
00111000
11000010
10111011
11000000
10100010
01110010
00110010
00011010
00001011
11001111
01111101
01011011
00000110
01100100
01000010
00110111
01000111
00000001
01101001
11010010
11100111
10101011
11111101
10011001
00000100
00001010
11011010
00001111
00100100

stdout

0
0
0
0
0
0
0
0
1
0
0
0
0
0
0
0
0
0
1
1
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
1
1
0
0
0
0
0
0
0
0
0
0
0

stderr

strace