d =. [:+/i.#~0=i.|]
a =. (]=d&d)*.]~:d
nums =. i.10000
problem21 =: +/nums#~a"0 nums