Album · 2013
Goldbach Conjecture
Released
2013
Tracks
23
Runtime
55 min
Tracklist
1
CLS :KEY OFF :CLEAR
Goldbach Conjecture
2:08
2
PRINT "GOLDBACH'S CONJECTURE:" :PRINT
Goldbach Conjecture
2:58
3
PRINT "Every even number greater than 2 can be written as the sum of two primes." :PRINT
Goldbach Conjecture
3:32
4
INPUT "Enter a number ";T
Goldbach Conjecture
1:51
5
T=2*INT(T/2)
Goldbach Conjecture
2:11
6
N=0
Goldbach Conjecture
2:27
7
FOR K=3 TO T-3 STEP 2
Goldbach Conjecture
2:14
8
X=SQR(K)
Goldbach Conjecture
2:07
9
Z=0
Goldbach Conjecture
2:32
10
FOR J=3 TO X STEP 2
Goldbach Conjecture
2:47
11
IF K/J-INT(K/J)=0 THEN LET Z=Z+1
Goldbach Conjecture
3:02
12
NEXT J
Goldbach Conjecture
2:05
13
IF Z=0 THEN GOSUB 16
Goldbach Conjecture
3:05
14
NEXT K
Goldbach Conjecture
2:15
15
END
Goldbach Conjecture
2:01
16
L=T-K
Goldbach Conjecture
2:43
17
P=SQR(L)
Goldbach Conjecture
2:30
18
Y=0
Goldbach Conjecture
2:15
19
FOR M=3 TO P STEP 2
Goldbach Conjecture
2:29
20
IF L/M-INT(L/M)=0 THEN LET Y=Y+1
Goldbach Conjecture
2:05
21
NEXT M
Goldbach Conjecture
2:30
22
IF Y=0 AND L>K THEN LET N=N+1 :PRINT,,USING"######";N;K;L
Goldbach Conjecture
2:01
23
RETURN
Goldbach Conjecture
1:33