Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #15 Mar 30 2024 15:56:52
%S 0,12,21,24,36,42,48,63,84,1122,1212,1221,2112,2121,2211,2244,2424,
%T 2442,2556,2565,2655,3366,3447,3474,3636,3663,3744,4224,4242,4347,
%U 4374,4422,4437,4473,4488,4734,4743,4848,4884,5256,5265,5526,5562,5625,5652,6255,6336,6363
%N Numbers such that the arithmetic mean of its digits is equal to three times the population standard deviation of its digits.
%C Equivalently, numbers whose digits have the coefficient of variation (or relative population standard deviation) equal to 1/3.
%C Any number obtained without leading zeros from a permutation of the digits of a given term of the sequence is also a term.
%C The concatenation of several copies of any term is a term. - _Robert Israel_, Mar 24 2024
%H Wikipedia, <a href="https://en.wikipedia.org/wiki/Coefficient_of_variation">Coefficient of variation</a>.
%H Wikipedia, <a href="https://en.wikipedia.org/wiki/Standard_deviation">Standard deviation</a>.
%e 2244 is a term since the mean of the digits is (2 + 2 + 4 + 4)/4 = 3 and the standard deviation of the digits is sqrt(((2-3)^2 + (2-3)^2 + (4-3)^2 + (4-3)^2)/4) = 1.
%t DigStd[n_]:=If[n==0||IntegerLength[n]==1, 0, Sqrt[(IntegerLength[n]-1)/IntegerLength[n]]StandardDeviation[IntegerDigits[n]]]; Select[Range[0, 6400], Mean[IntegerDigits[#]]==3DigStd[#]&]
%o (Python)
%o from itertools import count, islice
%o def A371464_gen(startvalue=0): # generator of terms >= startvalue
%o return filter(lambda n:10*sum(s:=tuple(map(int,str(n))))**2 == 9*len(s)*sum(d**2 for d in s), count(max(startvalue,0)))
%o A371464_list = list(islice(A371464_gen(),20)) # _Chai Wah Wu_, Mar 30 2024
%Y Cf. A371383, A371384, A371462, A371463.
%Y Cf. A238619, A238620, A238658, A238660, A238662.
%K nonn,base
%O 1,2
%A _Stefano Spezia_, Mar 24 2024