This browser doesn't support Spotify Web Player. Switch browsers or download Spotify for your desktop.

Goldbach Conjecture

By MY OK BBS

2013 • 23 songs

  1. 1.
    Cls :Key Off :Clear
    2:080:30
  2. 2.
    Print "Goldbach's Conjecture:" :Print
    2:570:30
  3. 3.
    Print "Every Even Number Greater Than 2 Can Be Written as the Sum of Two Primes." :Print
    3:310:30
  4. 4.
    Input "Enter a Number";t
    1:500:30
  5. 5.
    T=2*int(T/2)
    2:110:30
  6. 6.
    N=0
    2:260:30
  7. 7.
    For K=3 to T-3 Step 2
    2:140:30
  8. 8.
    X=sqr(K)
    2:070:30
  9. 9.
    Z=0
    2:310:30
  10. 10.
    For J=3 to X Step 2
    2:470:30
  11. 11.
    If K/J-Int(K/J)=0 Then Let Z=z+1
    3:010:30
  12. 12.
    Next J
    2:050:30
  13. 13.
    If Z=0 Then Gosub 16
    3:040:30
  14. 14.
    Next K
    2:150:30
  15. 15.
    End
    2:010:30
  16. 16.
    L=t-K
    2:430:30
  17. 17.
    P=sqr(L)
    2:300:30
  18. 18.
    Y=0
    2:150:30
  19. 19.
    For M=3 to P Step 2
    2:290:30
  20. 20.
    If L/M-Int(L/M)=0 Then Let Y=y+1
    2:040:30
  21. 21.
    Next M
    2:290:30
  22. 22.
    If Y=0 and L>k Then Let N=n+1 :Print,,Using"######";n;k;l
    2:010:30
  23. 23.
    Return
    1:330:30

More by MY OK BBS

More MY OK BBS

Listen to Goldbach Conjecture now.

Listen to Goldbach Conjecture in full in the Spotify app

  • © 2013 MY OK BBS
  • ℗ 2013 Brian Peters