home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 September / 64er_Magazin_86-09_1986_Markt__Technik_de.d64 / primzahlen (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  146b  |  5 lines
  1. 10 input"[147]primzahlen bis";h:z=3:t=int(sqr(h)+1):w=(t-1)/2:g=t*t:dimp%(g)
  2. 20 forx=1tow:fory=z*ztogstepz*2:p%(y)=1:next:z=z+2:next
  3. 30 print2;:forx=3tohstep2:ifp%(x)=.thenprintx;
  4. 40 next
  5.