DIM a(1000)FOR b=2 TO 1000 LET a(b)=bNEXT BREM------------------------------------FOR i=2 TO 1000 FOR j=2 TO 1000 IF i<>a(j) AND MOD(a(j),i)=0 THEN LET a(j)=0 NEXT JNEXT IREM ------------------------------LET t=1FOR k=2 TO 1000 IF a(k)<>0 …

10 REM 銅バッハ数とはちょうど2通りの異なる方法で2つの素数の和として表わされる整数です。例えば14=7+7=11+3であるから14は銅バッハ数です。20 REM 銅バッハ数はOEISによると全部で9個のようです。30 REM !の記号以下は注釈化です。40 REM 10行目から170…