Numbers which are the cube roots of the product of their proper divisors: Difference between revisions

m
→‎{{header|Free Pascal}}: sieve limit must be 2*3 not 2^3
(Added Lua version)
m (→‎{{header|Free Pascal}}: sieve limit must be 2*3 not 2^3)
Line 943:
i,cnt,lmt : Int32;
begin
SievePrimes(limit DIV 86);// 2^*3*c * (prime c> 23 prime)
 
gblCount := 0;
Line 999:
500000.th: 2229229
5000000.th: 22553794
Total found: 2379749324073906 til 110000000
 
Real time: 1.452 s CPU share: 99.05 %
132

edits