12 lines
290 B
Text
12 lines
290 B
Text
100 PROGRAM "TauNr.bas"
|
|
110 LET LIMIT=100
|
|
120 LET N,NUM=0
|
|
130 PRINT "The first";LIMIT;"tau numbers are:"
|
|
140 DO WHILE NUM<LIMIT
|
|
150 LET N=N+1
|
|
160 LET TAU=0
|
|
170 FOR M=1 TO N
|
|
180 IF MOD(N,M)=0 THEN LET TAU=TAU+1
|
|
190 NEXT
|
|
200 IF MOD(N,TAU)=0 THEN LET NUM=NUM+1:PRINT N,
|
|
210 LOOP
|