

A065517


Numerator of n/(sum of the digits of n).


2



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, 29, 10, 31, 32, 11, 34, 35, 4, 37, 38, 13, 10, 41, 7, 43, 11, 5, 23, 47, 4, 49, 10, 17, 52, 53, 6, 11, 56, 19, 58, 59, 10, 61, 31, 7, 32, 65, 11, 67, 34, 23, 10, 71
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,10


LINKS

Harry J. Smith, Table of n, a(n) for n = 1..1000


EXAMPLE

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, ...


MATHEMATICA

Numerator[#/Total[IntegerDigits[#]]]&/@Range[80] (* Harvey P. Dale, Feb 19 2015 *)


PROG

(PARI) SumD(x)= { local(s=0); while (x>9, s+=x10*(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
(PARI) a(n) = numerator(n/sumdigits(n)); \\ Michel Marcus, Jun 18 2018


CROSSREFS

Cf. A065518, A007954.
Sequence in context: A248025 A303501 A289985 * A235600 A059514 A066355
Adjacent sequences: A065514 A065515 A065516 * A065518 A065519 A065520


KEYWORD

nonn,base


AUTHOR

N. J. A. Sloane, Nov 27 2001


EXTENSIONS

Definition corrected by Harry J. Smith, Oct 20 2009


STATUS

approved



