A371383 - OEIS

%I #15 Mar 22 2024 19:18:57

%S 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,

%T 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,

%U 11,6,13,7,15,7,4,9,5,11,6,13,7,15,8,4,9,5,11,6

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

%H Stefano Spezia, <a href="/A371383/b371383.txt">Table of n, a(n) for n = 0..10000</a>

%H <a href="/index/Coi#Colombian">Index entries for Colombian or self numbers and related sequences</a>.

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

%o (Python)

%o from math import gcd

%o def A371383(n): return (l:=sum(map(int,(s:=str(n)))))//gcd(l,len(s)) # _Chai Wah Wu_, Mar 22 2024

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

%K nonn,base,easy,frac

%O 0,3

%A _Stefano Spezia_, Mar 20 2024