problem12.ijs


1
2
3
4
5
6
7

triNum=: [: +/ 1 + i.

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

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

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