A092599 Number of those natural numbers x for which sum of decimal digits exceeds x/n.

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

Offset

1,2

Links

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

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: A003333 A345803 A354472 * A127853 A267737 A188302

Adjacent sequences: A092596 A092597 A092598 * A092600 A092601 A092602

Keyword

base,nonn

Author

Labos Elemer, Mar 18 2004

Status

approved