Aliquot sequence classifications: Difference between revisions
Content added Content deleted
| Line 705: | Line 705: | ||
ListBuffer new dup add(1) |
ListBuffer new dup add(1) |
||
2 self nsqrt dup ->sqrtn for: i [ |
2 self nsqrt dup ->sqrtn for: i [ |
||
self i mod |
self i mod ifZero: [ i over add self i / over add ] |
||
] |
] |
||
self sqrtn sq == ifTrue: [ dup removeLast drop ] |
self sqrtn sq == ifTrue: [ dup removeLast drop ] |
||