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.

0, 19, 29, 49, 79, 99, 99, 99, 99, 99, 199, 199, 199, 199, 299, 299, 299, 299, 299, 399, 399, 399, 499, 499, 499, 499, 599, 599, 599, 699, 699, 799, 799, 799, 899, 899, 899, 999, 999, 999, 999, 999, 999, 999, 999, 999, 999, 999, 999, 999, 999, 999, 999, 999

Offset

1,2

Links

Table of n, a(n) for n=1..54.

Example

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.

Mathematica

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}]

Crossrefs

Cf. A092596-A092600.

Sequence in context: A063644 A156782 A347366 * A106124 A062679 A106093

Adjacent sequences: A092597 A092598 A092599 * A092601 A092602 A092603

Keyword

base,nonn

Author

Labos Elemer, Mar 18 2004

Status

approved