OFFSET
1,2
FORMULA
A000005(a(n)) = n for a(n) > 0.
12 = max n such that a(n) > 0, a(n) = 0 for n > 12.
MATHEMATICA
With[{tbl=Table[{n, DivisorSigma[0, n]}, {n, 10, 99}]}, Table[SelectFirst[tbl, #[[2]]==k&], {k, 50}]][[;; , 1]]/."NotFound"->0 (* Harvey P. Dale, Jun 10 2026 *)
CROSSREFS
KEYWORD
nonn,base,less,changed
AUTHOR
Jaroslav Krizek, Nov 27 2010
STATUS
approved
