RosettaCodeData/Task/Perfect-numbers/PARI-GP/perfect-numbers-3.parigp
2023-07-01 13:44:08 -04:00

3 lines
73 B
Text

forprime(p=2, 2281,
if(isprime(2^p-1),
print(p"\t",(2^p-1)*2^(p-1))))