Perfect numbers: Difference between revisions
Content added Content deleted
(Updated both D entries) |
(adding maxima) |
||
| Line 697: | Line 697: | ||
False |
False |
||
{6,28,496,8128}</lang> |
{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}}== |
=={{header|MAXScript}}== |
||