OFFSET
1,2
COMMENTS
Numbers k such that k <= H(k+1), where H(k) is the number of ordered factorizations of k (A074206).
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
MATHEMATICA
f[1] = 1; f[n_] := f[n] = DivisorSum[n, f[#] &, # < n &]; Select[Range[2200], # <= f[# + 1] &] (* Amiram Eldar, May 01 2025 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Oct 25 2009
EXTENSIONS
All values corrected in view of the offset of A002033 - R. J. Mathar, Oct 27 2009
STATUS
approved
