by@kurgm
AC
f={case 0->0
case x->m=x%10;f((x-m)/10)*2+m}
stdin|{x->if(sqrt(f(number(x))*8+1)%1>0)0else 1}|puts00110111 00010101 10001101 01001110 00001111 00110101 10101011 10010000 01000010 00101101 00000000 00011100 10000010 01001110 01000110 10001110 10111110 00000001 11111101 01101001 00101101 00010100 11110010 10001000 10101111 11100111 10011001 10000111 00000110 10110001 01111000 00001010 00100100 01111010 11011110 00101000 11110001 01011001 00111100 00000011 11010010 01010000 01010111 00101011 10100010 01010110 01101100 01110110 01011011 10011101
1 1 0 1 1 0 1 0 1 1 1 1 0 1 0 0 1 1 1 1 1 0 0 1 0 1 1 0 1 0 1 1 1 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 1 0