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

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

Offset: 1

Author

N. J. A. Sloane, Nov 27 2001

Keywords

• nonn
• base

Examples

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

Links

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

Crossrefs

Cf. A065518, A007954.

Programs

Mathematica

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

PARI

a(n) = numerator(n/sumdigits(n)); \\ Michel Marcus, Jun 18 2018

Extensions

Definition corrected by Harry J. Smith, Oct 20 2009