0: fxd 0 1: prt 1 2: prt 2 3: 1->P 4: for C=2 to 1000000 5: P+2->P 6: for N=3 to P/3 7: if int(P/N)*N = P; gto 4 8: next N 9: prt P 10: next C