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