A371384 a(n) is the denominator of the arithmetic mean of the digits of n.

1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2

Offset

0,11

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_]:=Denominator[Mean[IntegerDigits[n]]]; Array[a, 90, 0]

Prog

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

Crossrefs

Cf. A004426, A004427, A007953, A055642, A061383, A371383 (numerator).

Sequence in context: A196563 A198890 A305831 * A022927 A063435 A262352

Adjacent sequences: A371381 A371382 A371383 * A371385 A371386 A371387

Keyword

nonn,base,easy,frac

Author

Stefano Spezia, Mar 20 2024

Status

approved