OFFSET
1,1
MATHEMATICA
Do[ h = IntegerDigits[n]; If[ Sort[h][[1]] != 0 && Length[h]/Apply[Plus, 1/h] == 8, Print[n]], {n, 1, 10^6}]
Select[Range[700000], DigitCount[#, 10, 0]==0&&HarmonicMean[IntegerDigits[ #]]==8&] (* Harvey P. Dale, Jan 27 2012 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Vladeta Jovovic, Jun 12 2001
EXTENSIONS
More terms from Robert G. Wilson v, Aug 08 2001
STATUS
approved