Attractive numbers: Difference between revisions

m
(Added Quackery.)
Line 323:
=={{header|Arturo}}==
 
<lang rebol>attractive?: function =[x] -> [prime? size factors.prime &]x
 
print select 1..120 => attractive?</lang>
1,532

edits