login
Numbers such that harmonic mean of digits is 5.
1

%I #7 Sep 27 2018 13:44:19

%S 5,55,555,5555,26999,28888,29699,29969,29996,33999,34688,34868,34886,

%T 36488,36666,36848,36884,38468,38486,38648,38684,38846,38864,39399,

%U 39939,39993,43688,43868,43886,44488,44666,44848,44884,46388,46466

%N Numbers such that harmonic mean of digits is 5.

%H Harvey P. Dale, <a href="/A062183/b062183.txt">Table of n, a(n) for n = 1..1000</a>

%t Do[ h = IntegerDigits[n]; If[ Sort[h][[1]] != 0 && Length[h]/Apply[Plus, 1/h] == 5, Print[n]], {n, 1, 10^6}]

%t Select[Range[50000],HarmonicMean[IntegerDigits[#]]==5&] (* _Harvey P. Dale_, Sep 27 2018 *)

%Y Cf. A062179-A062185, A061383-A061388, A061423-A061425.

%K base,easy,nonn

%O 1,1

%A _Vladeta Jovovic_, Jun 12 2001

%E More terms from _Robert G. Wilson v_, Aug 08 2001