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 A062182 #13 Aug 20 2018 17:36:18
%S A062182 4,36,44,63,288,346,364,436,444,463,634,643,828,882,2488,2666,2848,
%T A062182 2884,3366,3446,3464,3636,3644,3663,4288,4346,4364,4436,4444,4463,
%U A062182 4634,4643,4828,4882,6266,6336,6344,6363,6434,6443,6626,6633,6662,8248,8284
%N A062182 Harmonic mean of digits is 4.
%H A062182 Robert Israel, <a href="/A062182/b062182.txt">Table of n, a(n) for n = 1..10000</a>
%p A062182 filter:= proc(n) local L;
%p A062182 L:= convert(n,base,10);
%p A062182 if has(L,0) then return false fi;
%p A062182 nops(L)/add(1/i,i=L)=4
%p A062182 end proc:
%p A062182 select(filter, [$1..10^4]); # _Robert Israel_, Aug 20 2018
%t A062182 Do[ h = IntegerDigits[n]; If[ Sort[h][[1]] != 0 && Length[h]/Apply[Plus, 1/h] == 4, Print[n]], {n, 1, 10^5}]
%t A062182 hm4Q[n_]:=DigitCount[n,10,0]==0&&HarmonicMean[IntegerDigits[n]]==4; Select[Range[9000],hm4Q] (* _Harvey P. Dale_, Mar 23 2011 *)
%Y A062182 Cf. A062179-A062185, A061383-A061388, A061423-A061425.
%K A062182 base,easy,nonn
%O A062182 1,1
%A A062182 _Vladeta Jovovic_, Jun 12 2001
%E A062182 More terms from _Henry Bottomley_, Jul 25 2001