home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 December / 64er_Magazin_86-12_1986_Markt__Technik_de.d64 / primzahlen (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  194 b   |  7 lines
  1. 20 q=3500:c=0:a=0:e=0:f=0:d=0:print1,2,3,:dimb(q):b(0)=3:fora=3to999999999step2
  2. 30 ifc<qthenifint(a)=int(b(e)^2)thene=e+1
  3. 40 ford=3tob(e)step2:ifa/d=int(a/d)thenf=1:d=b(e)
  4. 50 next:iff=1thenf=0:next
  5. 60 printa,:ifc<qthenc=c+1:b(c)=a:next
  6. 70 next
  7.