alisum(12)

RealDoble: 16 (1+2+3+4+6)

para valores superiores a 9.75E15 usar EnteroGrande para obtener resultado correcto (más lento):

alisum(10000000000000000000b)

EnteroGrande: 14999976158141827700 (más de 9 min de CPU)

enumerar(alisum(rango(21)),0)

VectorEvaluado: | 0 0 | | 1 0 | | 2 1 | | 3 1 | | 4 3 | | 5 1 | | 6 6 | | 7 1 | | 8 7 | | 9 4 | | 10 8 | | 11 1 | | 12 16 | | 13 1 | | 14 10 | | 15 9 | | 16 15 | | 17 1 | | 18 21 | | 19 1 | | 20 22 |

números perfectos:

concat(condsuc(alisum(n)=n,stexto(n)+' es perfecto',n,1,1e4),', ')

Texto: '6 es perfecto, 28 es perfecto, 496 es perfecto, 8128 es perfecto'