%I A062184
%S A062184 6,66,488,666,848,884,3999,4688,4868,4886,6488,6666,6848,6884,8468,
%T A062184 8486,8648,8684,8846,8864,9399,9939,9993,36999,38888,39699,39969,39996,
%U A062184 44999,46688,46868,46886,48668,48686,48866,49499,49949,49994,63999
%N A062184 Harmonic mean of digits is 6.
%t A062184 Do[ h = IntegerDigits[n]; If[ Sort[h][[1]] != 0 && Length[h]/Apply[Plus, 
               1/h] == 6, Print[n]], {n, 1, 10^6}]
%Y A062184 Cf. A062179-A062185, A061383-A061388, A061423-A061425.
%Y A062184 Sequence in context: A119073 A028559 A163699 this_sequence A119214 A075138 
               A043041
%Y A062184 Adjacent sequences: A062181 A062182 A062183 this_sequence A062185 A062186 
               A062187
%K A062184 base,easy,nonn
%O A062184 1,1
%A A062184 Vladeta Jovovic (vladeta(AT)eunet.rs), Jun 12 2001
%E A062184 More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 08 2001