path: root/problem46.ijs

nums =: (2&|#])2}.(0&p:#])i.10000
squares =: {{ 2^~>:i.<.%:y }}
fails =: {{ -.+./1 p:(]-2*squares) y }}"0
problem46 =: nums{~{.I.fails nums