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

Links

Stefano Spezia, Table of n, a(n) for n = 0..10000

Index entries for Colombian or self numbers and related sequences.

Mathematica

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

Prog

(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

Crossrefs

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

Sequence in context: A051801 A071205 A066750 * A217928 A326652 A222493

Adjacent sequences: A371380 A371381 A371382 * A371384 A371385 A371386

Keyword

nonn,base,easy,frac

Author

Stefano Spezia, Mar 20 2024

Status

approved