22 lines
493 B
Text
22 lines
493 B
Text
0010 FUNC factors#(n#) CLOSED
|
|
0020 count#:=0
|
|
0030 WHILE n# MOD 2=0 DO n#:=n# DIV 2;count#:+1
|
|
0040 fac#:=3
|
|
0050 WHILE fac#<=n# DO
|
|
0060 WHILE n# MOD fac#=0 DO n#:=n# DIV fac#;count#:+1
|
|
0070 fac#:+2
|
|
0080 ENDWHILE
|
|
0090 RETURN count#
|
|
0100 ENDFUNC factors#
|
|
0110 //
|
|
0120 ZONE 4
|
|
0130 seen#:=0
|
|
0140 FOR i#:=2 TO 120 DO
|
|
0150 IF factors#(factors#(i#))=1 THEN
|
|
0160 PRINT i#,
|
|
0170 seen#:+1
|
|
0180 IF seen# MOD 18=0 THEN PRINT
|
|
0190 ENDIF
|
|
0200 ENDFOR i#
|
|
0210 PRINT
|
|
0220 END
|