This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A062184 #4 May 10 2013 12:44:47 %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, %U A062184 39996,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. %K A062184 base,easy,nonn %O A062184 1,1 %A A062184 _Vladeta Jovovic_, Jun 12 2001 %E A062184 More terms from _Robert G. Wilson v_, Aug 08 2001