10 DIM ODD(2,10000000)
LET C=1
20 FOR I=1 TO 9999999
30 LET ODD(1,I)=I*2+1
LET ODD(2,I)=0
NEXT I
40 FOR J=1 TO 9999999
50 LET N=(J*2+1)*2
60 FOR K=N/2+N TO INT((20000000-N/2)/N)*N STEP N
70 LET ODD(2,INT(K/2))=1
80 NEXT K
90 NEXT J
100 LET K=1
110 IF ODD(2,K)=0 THEN LET C=C+1
120 IF C=1000000 THEN GOTO 200
130 LET K=K+1
GOTO 110
200 PRINT ODD(1,K)
END
1000000番目の素数を求める十進BASICプログラム
この程度のなら2時間で組める今。ちっ こういうのもいつまで保つのやら。ただこのとこ
組もうと思ったプログラムで挫折したことはない。いじわるでそこつな千栄子だが まあ。