Aliquot sequence classifications: Difference between revisions
m
→{{header|Oforth}}
Line 705:
ListBuffer new dup add(1)
2 self nsqrt dup ->sqrtn for: i [
self i mod
]
self sqrtn sq == ifTrue: [ dup removeLast drop ]
| |||