Square-free integers: Difference between revisions
m
→{{header|FreeBASIC}}: changed indents
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: Minor tweaks.) |
m (→{{header|FreeBASIC}}: changed indents) |
||
Line 240:
For i = 4 To max Step 2 ' prime sieve remove even numbers except 2
Next
For i = 3 To stop_ Step 2 ' proces odd numbers
Next
For i = 2 To max ' move primes to a list
Next
Line 260:
For i = 1 To c ' find all square free integers between 1 and 1000000
Next
k = 0
For i = 1 To 145 ' show all between 1 and 145
Next
Print : Print
Line 279:
sieve(0) = 1 ' = trillion
For i = 1 To 5 ' process primes 2, 3, 5, 7, 11
Next
For i = 6 To c ' process the rest of the primes
Next
k = 0
For i = 0 To 145
Next
Print : Print
Line 304:
a = 1 : b = 100 : k = 0
Do Until b > 1000000 ' count them
Loop
|