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,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) a(n) = numerator(n/sumdigits(n)); \\ Michel Marcus, Jun 18 2018

Crossrefs

Cf. A065518, A007954.

Sequence in context: A303501 A368347 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