mirror
/
RosettaCodeData
mirror of https://github.com/acmeism/RosettaCodeData.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
RosettaCodeData/Task/Arithmetic-Rational/PARI-GP/arithmetic-rational.parigp

6 lines
66 B
Plaintext
Raw Permalink Blame History

for(n=2,1<<19,
s=0;
fordiv(n,d,s+=1/d);
if(s==2,print(n))
)
Reference in New Issue View Git Blame Copy Permalink