OFFSET
1,1
COMMENTS
The distinct values in this sequence together with 1 form A002182.
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..10000
FORMULA
a(n) = Min_{ k >= 1, sigma_0(k) > sigma_0(n) }, n>=1.
A002182(n+1) = a(a(...a(1))...) with n >= 0 iterations.
MATHEMATICA
a365264[n_] := NestWhile[#+1&, 1, DivisorSigma[0, n]>=DivisorSigma[0, #]&]
a365264[{m_, n_}] := Map[a365264, Range[m, n]]
a365264[{1, 80}]
PROG
(PARI) a(n) = my(k=1, nd=numdiv(n)); while(numdiv(k) <= nd, k++); k; \\ Michel Marcus, Aug 29 2023
CROSSREFS
KEYWORD
nonn
AUTHOR
Hartmut F. W. Hoft, Aug 29 2023
STATUS
approved