mathtools/internal/lib/sieve/divisors.go

/*
Copyright © 2025 filifa

This program is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program. If not, see <http://www.gnu.org/licenses/>.
*/
package sieve

func pow(base uint, exp uint) uint {
	result := uint(1)
	for exp > 0 {
		if exp%2 == 1 {
			result *= base
		}

		exp >>= 1
		base *= base
	}

	return result
}

/*
Divisors computes sigma_x(k) for k=1 to n, where sigma_x is the divisor sum function. x sets the power each divisor is raised to.
*/
func Divisors(n uint, x uint, buflen uint) chan uint {
	sieve := make([]uint, n)
	sieve[0] = 0
	for i := uint(1); i < n; i++ {
		sieve[i] = 1
	}

	ch := make(chan uint, buflen)
	go func() {
		defer close(ch)
		for i := uint(0); i < n; i++ {
			if i == 0 || i == 1 || sieve[i] != 1 {
				ch <- sieve[i]
				continue
			}

			sieve[i] = pow(i, x) + 1
			for j := i; i*j < n; j *= i {
				// sigma_x(p^k) = p^(kx) + sigma_x(p^(k-1))
				sieve[i*j] = pow(i*j, x) + sieve[j]
			}

			updateMultiples(sieve, i, n, false)
			ch <- sieve[i]
		}
	}()

	return ch
}