OFFSET
1,2
COMMENTS
Among all 4-digit numbers, 64 is the maximum number of divisors, so a(64) is the last nonzero term.
FORMULA
A000005(a(n)) = n for a(n) > 0.
MATHEMATICA
tbl=Table[{n, DivisorSigma[0, n]}, {n, 1000, 9999}];
Table[Max[Transpose[Select[tbl, #[[2]]==x&]][[1]]], {x, 70}]/.-\[Infinity]->0//Quiet (* Harvey P. Dale, Dec 02 2010 *)
CROSSREFS
KEYWORD
nonn,base,fini,full
AUTHOR
Jaroslav Krizek, Nov 27 2010
EXTENSIONS
Edited by Jon E. Schoenfield, Mar 11 2014
STATUS
approved