A371383 a(n) is the numerator of the arithmetic mean of the digits of n.

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 1, 3, 2, 5, 3, 7, 4, 9, 5, 1, 3, 2, 5, 3, 7, 4, 9, 5, 11, 3, 2, 5, 3, 7, 4, 9, 5, 11, 6, 2, 5, 3, 7, 4, 9, 5, 11, 6, 13, 5, 3, 7, 4, 9, 5, 11, 6, 13, 7, 3, 7, 4, 9, 5, 11, 6, 13, 7, 15, 7, 4, 9, 5, 11, 6, 13, 7, 15, 8, 4, 9, 5, 11, 6

Offset: 0

Author

Stefano Spezia, Mar 20 2024

Keywords

• nonn
• base
• easy
• frac

Links

• Stefano Spezia, Table of n, a(n) for n = 0..10000
• Index entries for Colombian or self numbers and related sequences.

Crossrefs

Cf. A004426, A004427, A007953, A055642, A061383, A371384 (denominator).

Programs

Mathematica

a[n_]:=Numerator[Mean[IntegerDigits[n]]]; Array[a,85,0]

Python

from math import gcd
def A371383(n): return (l:=sum(map(int,(s:=str(n)))))//gcd(l,len(s)) # Chai Wah Wu, Mar 22 2024