A092600 - OEIS

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.

%I #4 Oct 15 2013 22:32:22

%S 0,19,29,49,79,99,99,99,99,99,199,199,199,199,299,299,299,299,299,399,

%T 399,399,499,499,499,499,599,599,599,699,699,799,799,799,899,899,899,

%U 999,999,999,999,999,999,999,999,999,999,999,999,999,999,999,999,999

%N 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 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 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 Cf. A092596-A092600.

%K base,nonn

%O 1,2

%A _Labos Elemer_, Mar 18 2004