RosettaCodeData/Task/Perfect-numbers/Mathematica/perfect-numbers-2.math

4 lines
79 B
Plaintext

PerfectQ[496]
PerfectQ[128]
Flatten[PerfectQ/@Range[10000]//Position[#,True]&]