|
Search: id:A092599
|
|
|
| A092599 |
|
Number of those natural numbers x for which sum of decimal digits is exceeds x/n. |
|
+0
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; listen)
|
|
|
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: A157159 A079630 A003333 this_sequence A127853 A034097 A034107
Adjacent sequences: A092596 A092597 A092598 this_sequence A092600 A092601 A092602
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Mar 18 2004
|
|
|
Search completed in 0.002 seconds
|
