OFFSET
1,2
FORMULA
MATHEMATICA
digits=4; tbl=DivisorSigma[0, Range[10^(digits-1), 10^digits-1]]; t=Table[0, {Max[tbl]}]; offset=10^digits; Do[t[[tbl[[-i]]]]=offset-i, {i, Length[tbl]}]; t
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jaroslav Krizek, Nov 27 2010
STATUS
approved