OFFSET
1,2
EXAMPLE
a(3) = 5 since 5 is the least number k such that A349474(k) = 3.
MATHEMATICA
cflen[n_] := Length @ ContinuedFraction[DivisorSigma[0, n] / DivisorSigma[-1, n]]; seq[len_, nmax_] := Module[{s = Table[0, {len}], c = 0, n = 1, i}, While[c < len && n < nmax, i = cflen[n]; If[i <= len && s[[i]] == 0, c++; s[[i]] = n]; n++]; TakeWhile[s, # > 0 &]]; seq[20, 10^7]
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Nov 19 2021
STATUS
approved