|
%I #13 Jun 18 2018 03:42:33
%S 1,1,1,1,1,1,1,1,1,10,11,4,13,14,5,16,17,2,19,10,7,11,23,4,25,13,3,14,
%T 29,10,31,32,11,34,35,4,37,38,13,10,41,7,43,11,5,23,47,4,49,10,17,52,
%U 53,6,11,56,19,58,59,10,61,31,7,32,65,11,67,34,23,10,71
%N Numerator of n/(sum of the digits of n).
%H Harry J. Smith, <a href="/A065517/b065517.txt">Table of n, a(n) for n = 1..1000</a>
%e 1, 1, 1, 1, 1, 1, 1, 1, 1, 10, 11/2, 4, 13/4, 14/5, 5/2, 16/7, 17/8, 2, 19/10, 10, 7, 11/2, ...
%t Numerator[#/Total[IntegerDigits[#]]]&/@Range[80] (* _Harvey P. Dale_, Feb 19 2015 *)
%o (PARI) SumD(x)= { local(s=0); while (x>9, s+=x-10*(x\10); x\=10); return(s + x) } { for (n=1, 1000, a=numerator(n/SumD(n)); write("b065517.txt", n, " ", a) ) } \\ _Harry J. Smith_, Oct 20 2009
%o (PARI) a(n) = numerator(n/sumdigits(n)); \\ _Michel Marcus_, Jun 18 2018
%Y Cf. A065518, A007954.
%K nonn,base
%O 1,10
%A _N. J. A. Sloane_, Nov 27 2001
%E Definition corrected by _Harry J. Smith_, Oct 20 2009
|
