Anonymous user
Perfect numbers: Difference between revisions
adding maxima
(Updated both D entries) |
(adding maxima) |
||
Line 697:
False
{6,28,496,8128}</lang>
=={{header|Maxima}}==
<lang maxima>".."(a, b) := makelist(i, i, a, b)$
infix("..")$
perfectp(n) := is(divsum(n) = 2*n)$
sublist(1 .. 10000, perfectp);
/* [6, 28, 496, 8128] */</lang>
=={{header|MAXScript}}==
| |||