number-pedia.com キュバン素数を求めるプログラム。十進BASIC使用。最初の1000個を求めています。 LET s=0LET t=0FOR a=1 TO 10000 LET b=3*a^2+3*a+1 FOR c=2 TO INT(SQR(b)) IF MOD(b,c)=0 THEN EXIT FOR IF MOD(b,c)<>0 THEN LET s=s+1 NEXT C IF s=INT(…

REM 有理数モードで実行 REM エジプト式分数を求めるプログラムです。十進BASIC使用。INPUT n,mLET b=n/m LET t=0DIM a(200)FOR i=2 TO 100000 LET c=b-1/i IF c<=0 THEN GOTO 300 LET t=t+1 LET a(t)=1/i IF numer(c)=1 THEN LET t=t+1 IF numer(c)=1 THEN …