20 Q=3500:C=0:A=0:E=0:F=0:D=0:PRINT1,2,3,:DIMB(Q):B(0)=3:FORA=3TO999999999STEP2
30 IFC<QTHENIFINT(A)=INT(B(E)^2)THENE=E+1
40 FORD=3TOB(E)STEP2:IFA/D=INT(A/D)THENF=1:D=B(E)
50 NEXT:IFF=1THENF=0:NEXT
60 PRINTA,:IFC<QTHENC=C+1:B(C)=A:NEXT
70 NEXT