I'm puzzeled about this line:
20 J=(2*A+1)*3326400+1
I changed that program to find factors of all numbers of the form 2^P1 but didn't find any until i changed the above line in:
20 J=2*A*3326400+1
Factors of Mersenne numbers are of the form 2*A*P+1, why adding an extra 1?
