RosettaCodeData/Task/Parallel-calculations/PARI-GP/parallel-calculations.parigp

3 lines
60 B
Plaintext

v=pareval(vector(1000,i,()->factor(2^i+1)[1,1]));
vecmin(v)