%I #12 Sep 08 2022 08:46:19
%S 0,1,2,3,4,5,6,7,8,9,1,2,3,4,5,1,2,3,4,5,2,3,4,5,6,2,3,4,5,6,3,4,5,6,
%T 7,3,4,5,6,7,4,5,6,7,8,4,5,6,7,8,5,6,7,8,9,1,2,3,1,2,3,1,2,3,4,2,3,4,
%U 2,3,4,2,3,4,5,3,4,5,3,4,5,3,4,5,6,4,5,6
%N Corresponding values of arithmetic means of digits of numbers from A061383.
%H Jaroslav Krizek, <a href="/A285093/b285093.txt">Table of n, a(n) for n = 0..3000</a>
%F a(n) = A007953(A061383(n)) / A055642(A061383(n)) for n >= 1.
%o (Magma) [&+Intseq(n) / #Intseq(n): n in [1..100000] | &+Intseq(n) mod #Intseq(n) eq 0]
%o (PARI) lista(nn) = {for (n=0, nn, if (n, d = digits(n), d = [0]); if (!( vecsum(d) % #d), print1(vecsum(d)/#d, ", ")););} \\ _Michel Marcus_, Apr 15 2017
%Y Cf. A061383 (numbers with integer arithmetic mean of digits in base 10).
%Y Sequences of numbers n such that a(n) = k for k = 1 - 9: A061384 (k = 1), A061385 (k = 2), A061386 (k = 3), A061387 (k = 4), A061388 (k = 5), A061423 (k = 6), A061424 (k = 7), A061425 (k = 8), A002283 (k = 9).
%Y Cf. A004426, A004427, A257295 (supersequences).
%K nonn,base
%O 0,3
%A _Jaroslav Krizek_, Apr 14 2017