|
| |
|
|
A092599
|
|
Number of those natural numbers x for which sum of decimal digits is exceeds x/n.
|
|
0
| |
|
|
0, 10, 17, 25, 40, 58, 70, 81, 88, 90, 109, 122, 131, 141, 150, 160, 173, 187, 194, 213, 227, 239, 254, 268, 282, 297, 314, 325, 346, 364, 381, 400, 419, 435, 459, 477, 492, 520, 542, 564, 589, 609, 630, 652, 673, 686, 712, 729, 746, 760, 780, 795, 809, 822
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
EXAMPLE
| For n=2,3,4 the relevant 10,17,25 natural numbers are listed. For n=1 at condition sumdigit[x]>x no solutions, while at sumdigit[x]>=x 9 solutions exists. Here a[1]=0.
|
|
|
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; el=Length[Union[t]]-1, Max[t]; }, {k, 1, 100}]
|
|
|
CROSSREFS
| Cf. A092596-A092600.
Sequence in context: A079630 A175389 A003333 * A127853 A188302 A190771
Adjacent sequences: A092596 A092597 A092598 * A092600 A092601 A092602
|
|
|
KEYWORD
| base,nonn
|
|
|
AUTHOR
| Labos E. (labos(AT)ana.sote.hu), Mar 18 2004
|
| |
|
|
