4 lines
102 B
Text
4 lines
102 B
Text
digits=: 10&#.inv
|
|
sumdig=: +/@,@digits
|
|
notprime=: -.@(1&p:)
|
|
smith=: #~ notprime * (=&sumdig q:)every
|