OFFSET
1,2
LINKS
Jinyuan Wang, Table of n, a(n) for n = 1..128
FORMULA
MATHEMATICA
With[{nd=Table[{n, DivisorSigma[0, n]}, {n, 99999, 10000, -1}]}, Table[ SelectFirst[ nd, #[[2]]==k&], {k, 50}]][[All, 1]]/."NotFound"->0 (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Mar 13 2018 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jaroslav Krizek, Nov 27 2010
STATUS
approved