A368063 a(n) is the least number k such that sigma(sigma(k) * k) > n * sigma(k) * k.

1, 2, 3, 10, 160, 12155, 26558675

Offset

0,2

Comments

Application of A134716 (sigma(k) / k > n) to A064987.

From Daniel Suteu, Dec 21 2023: (Start)

a(7) <= 114775357632650.

a(8) <= 272113056574982766111055794421. (End)

Links

Table of n, a(n) for n=0..6.

Example

For n = 4, the divisors of 160 sum to 378. 160 * 378 = 60480, whose divisors sum up to 243840 > 4 * 60480.

Mathematica

a={}; For[n=0, n<=6, n++, k=1; While[DivisorSigma[1, DivisorSigma[1, k]k] <= n DivisorSigma[1, k] k, k++]; AppendTo[a, k]]; a (* Stefano Spezia, Dec 10 2023 *)

Prog

(Java)
public static void main(String[] args)
    {
        long max = 0;
        for (long c = 1; c < Math.pow(10, 8); c = c + 1)
        {
            if (factorSum(factorSum(c) * c) > max * factorSum(c) * c)
            {
                System.out.println(c + ": " + factorSum(c) * c);
                max = max + 1;
            }
        }
    }
    public static long factorSum(long n)
    {
        long sum = 0;
        for (long c = 1; c <= Math.sqrt(n); c = c + 1)
        {
            if (n % c == 0)
            {
                sum = sum + c;
                if (c != Math.sqrt(n))
                {
                    sum = sum + n / c;
                }
            }
        }
        return sum;
    }
(PARI) a(n) = my(k=1); while (sigma(sigma(k)*k) <= n * sigma(k) * k, k++); k; \\ Michel Marcus, Dec 10 2023

Crossrefs

Cf. A064987, A134716.

Sequence in context: A119810 A055708 A162647 * A364140 A358391 A132536

Adjacent sequences: A368060 A368061 A368062 * A368064 A368065 A368066

Keyword

nonn,more

Author

Max Z. Scialabba, Dec 10 2023

Extensions

a(6) from Michel Marcus, Dec 10 2023

Status

approved