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 A062179 #8 May 10 2013 12:44:47
%S A062179 1,2,3,4,5,6,7,8,9,11,22,26,33,36,44,55,62,63,66,77,88,99,111,136,144,
%T A062179 163,222,236,244,263,288,316,326,333,346,361,362,364,414,424,436,441,
%U A062179 442,444,463,488,555,613,623,631,632,634,643,666,777,828,848,882,884
%N A062179 Harmonic mean of digits is an integer.
%H A062179 Harvey P. Dale, <a href="/A062179/b062179.txt">Table of n, a(n) for n = 1..1000</a>
%e A062179 1236 is a term as the harmonic mean is 4/(1+1/2+1/3+1/6) = 2.
%t A062179 Do[ h = IntegerDigits[n]; If[ Sort[h] [[1]] != 0 && IntegerQ[ Length[h] / Apply[ Plus, 1/h] ], Print[n]], {n, 1, 10^4} ] Note that the number of entries <= 10^n are 9, 22, 61, 198, 927, 4738, 24620, 130093,
%t A062179 hmdiQ[n_]:=DigitCount[n,10,0]==0&&IntegerQ[HarmonicMean[ IntegerDigits[ n]]]; Select[Range[1000],hmdiQ] (* _Harvey P. Dale_, Sep 22 2012 *)
%Y A062179 Cf. A062180-A062185, A061383-A061388, A061423-A061425.
%K A062179 base,easy,nonn
%O A062179 1,2
%A A062179 _Vladeta Jovovic_, Jun 12 2001
%E A062179 More terms from _Robert G. Wilson v_, Aug 08 2001