Numbers which are the cube roots of the product of their proper divisors: Difference between revisions
Content added Content deleted
(Added Lua version) |
m (→{{header|Free Pascal}}: sieve limit must be 2*3 not 2^3) |
||
Line 943: | Line 943: | ||
i,cnt,lmt : Int32; |
i,cnt,lmt : Int32; |
||
begin |
begin |
||
SievePrimes(limit DIV |
SievePrimes(limit DIV 6);// 2*3*c * (c> 3 prime) |
||
gblCount := 0; |
gblCount := 0; |
||
Line 999: | Line 999: | ||
500000.th: 2229229 |
500000.th: 2229229 |
||
5000000.th: 22553794 |
5000000.th: 22553794 |
||
Total found: |
Total found: 24073906 til 110000000 |
||
Real time: 1.452 s CPU share: 99.05 % |
Real time: 1.452 s CPU share: 99.05 % |