Brain smoker ...

[Didier Lachieze]

Nice challenge, it helped me to learn a few things about the Prime !!
Here's what I've found:

1. first a slightly shorter variation on your excellent solution: sum(map(a,(a)->sum(|a*b|)))
2. and another way to get to the result: sum(EXECON("sum(abs((&1*b))",a))

The second one is a bit longer but works in both HOME and CAS while the first one works only in CAS.