Factors of an integer: Difference between revisions
Content added Content deleted
m (→Raku: .. put back orig. title structure (was meant to be "fixed" in edit summary only, sorry)) |
m (→using Prime decomposition: correct Sum of Divs for 2^n, n>=30) |
||
Line 4,494: | Line 4,494: | ||
var |
var |
||
dgt:tDigits; |
dgt:tDigits; |
||
i,j,k,pr,fac,n,MaxP : |
i,j,k,pr,fac,n,MaxP : Uint64; |
||
begin |
begin |
||
n := pdfOfs; |
n := pdfOfs; |
||
Line 4,525: | Line 4,525: | ||
pfpotMax[0] := j; |
pfpotMax[0] := j; |
||
pfRemain := (n+i) shr j; |
pfRemain := (n+i) shr j; |
||
pfSumOfDivs := (1 shl (j+1))-1; |
pfSumOfDivs := (Uint64(1) shl (j+1))-1; |
||
pfDivCnt := j+1; |
pfDivCnt := j+1; |
||
end; |
end; |