%I #13 Mar 12 2014 02:31:36
%S 0,9973,9409,9998,2401,9981,0,9994,9025,9904,1024,9999,4096,9664,9801,
%T 9982,0,9972,0,9968,7744,7168,0,9975,1296,0,6400,9920,0,9680,0,9990,
%U 9216,0,5184,9996,0,0,0,9936,0,9792,0,0,8100,0,0,9828,0,9072,0,0,0,9900,0,8640,0,0,0,9360,0,0,0,9240
%N a(n) = the largest 4-digit number with exactly n divisors, a(n) = 0 if no such number exists.
%C Among all 4-digit numbers, 64 is the maximum number of divisors, so a(64) is the last nonzero term.
%F A000005(a(n)) = n for a(n) > 0.
%t tbl=Table[{n,DivisorSigma[0,n]},{n,1000,9999}];
%t Table[Max[Transpose[Select[tbl,#[[2]]==x&]][[1]]],{x,70}]/.-\[Infinity]->0//Quiet (* _Harvey P. Dale_, Dec 02 2010 *)
%Y Cf. A182695.
%K nonn,base,fini,full
%O 1,2
%A _Jaroslav Krizek_, Nov 27 2010
%E Edited by _Jon E. Schoenfield_, Mar 11 2014