|
|
A092599
|
|
Number of those natural numbers x for which sum of decimal digits exceeds x/n.
|
|
1
|
|
|
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;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|