Open1
40を素数の和として表す
REM 40を素数の和として表す方法の数
FOR a=0 TO 20
FOR b=0 TO 13
FOR c=0 TO 8
FOR d=0 TO 5
FOR e=0 TO 3
FOR f=0 TO 3
FOR g=0 TO 2
FOR h=0 TO 2
FOR i=0 TO 1
FOR j=0 TO 1
FOR k=0 TO 1
FOR l=0 TO 1
IF a2+b3+c5+d7+e11+f13+g17+h19+i23+j29+k31+l37=40 THEN LET s=s+1
NEXT L
NEXT K
NEXT J
NEXT I
NEXT H
NEXT G
NEXT F
NEXT E
NEXT D
NEXT C
NEXT B
NEXT A
PRINT s
END