path: root/problem12.ijs

triNum=: [: +/ 1 + i.

factorCount=: [: */ 1 + _ q: ]

nums=:triNum"0 (1+i.20000) NB. should be enough

problem12=: nums {~ 1 i.~ (500<]);factorCount each nums