4 lines
79 B
Text
4 lines
79 B
Text
|
PerfectQ[496]
|
||
|
|
PerfectQ[128]
|
||
|
|
Flatten[PerfectQ/@Range[10000]//Position[#,True]&]
|