10 PRINT"[147]":REM PRIMZAHLEN
20 PRINT"PRIMZAHLEN"
30 PRINT"**********"
40 PRINT2;3;
50 F=3
60 FORI=3TOINT(SQR(F))STEP2
70 IFF/I=INT(F/I)THEN100
80 NEXTI
90 PRINTF;
100 F=F+2
110 GOTO60