Anonymous user
Perfect numbers: Difference between revisions
→{{header|Mathematica}}
(→{{header|Haskell}}: split a sequence of 'n' and '=' into two lines, for clarity) |
|||
Line 907:
')')</lang>
=={{header|Mathematica}} / {{header|Wolfram Language}}==
Custom function:
<lang Mathematica>PerfectQ[i_Integer] := Total[Divisors[i]] == 2 i</lang>
| |||