|
| |
|
|
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.
|
|
5
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
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: A046120 A063644 A156782 * A106124 A062679 A106093
Adjacent sequences: A092597 A092598 A092599 * A092601 A092602 A092603
|
|
|
KEYWORD
| base,nonn
|
|
|
AUTHOR
| Labos E. (labos(AT)ana.sote.hu), Mar 18 2004
|
| |
|
|
