A092599 - OEIS

%I #6 Jul 31 2022 17:05:41

%S 0,10,17,25,40,58,70,81,88,90,109,122,131,141,150,160,173,187,194,213,

%T 227,239,254,268,282,297,314,325,346,364,381,400,419,435,459,477,492,

%U 520,542,564,589,609,630,652,673,686,712,729,746,760,780,795,809,822

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

%e 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.

%t 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}]

%Y Cf. A092596-A092600.

%K base,nonn

%O 1,2

%A _Labos Elemer_, Mar 18 2004