RosettaCodeData/Task/Perfect-numbers/PARI-GP/perfect-numbers-2.pari
Ingy döt Net b83f433714 tasks a-s
2013-04-10 23:57:08 -07:00

3 lines
73 B
Text

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