%I A092600
%S A092600 0,19,29,49,79,99,99,99,99,99,199,199,199,199,299,299,299,299,299,399,
%T A092600 399,399,499,499,499,499,599,599,599,699,699,799,799,799,899,899,899,
%U A092600 999,999,999,999,999,999,999,999,999,999,999,999,999,999,999,999,999
%N A092600 Largest natural number x=a[n] for which sum of decimal digits exceeds 
               x/n; for n=1, the case when no such number exists, a[1]=0 was taken 
               arbitrarily.
%e A092600 At n=10 a[10]=99 since 9+9=18>99/10=9.9; at n=11 a[11]=199 since 1+9+9=19>
               199/11=18.09.
%t A092600 Table[{t=Table[0, {3000}], j=1, el=0}; Do[el=0;s=Apply[Plus, IntegerDigits[n]]; 
               If[Greater[s, n/k], t[[j]]=n;j=j+1], {n, 1, 10000}]; {t;Max[t]}, 
               {k, 1, 100}]
%Y A092600 Cf. A092596-A092600.
%Y A092600 Sequence in context: A046120 A063644 A156782 this_sequence A050266 A106124 
               A062679
%Y A092600 Adjacent sequences: A092597 A092598 A092599 this_sequence A092601 A092602 
               A092603
%K A092600 base,nonn
%O A092600 1,2
%A A092600 Labos E. (labos(AT)ana.sote.hu), Mar 18 2004