A062185 Harmonic mean of digits is 8.

8, 88, 888, 6999, 8888, 9699, 9969, 9996, 68999, 69899, 69989, 69998, 86999, 88888, 89699, 89969, 89996, 96899, 96989, 96998, 98699, 98969, 98996, 99689, 99698, 99869, 99896, 99968, 99986, 688999, 689899, 689989, 689998, 698899, 698989

Offset: 1

Author

Vladeta Jovovic, Jun 12 2001

Keywords

• base
• easy
• nonn

Crossrefs

Cf. A062179-A062185, A061383-A061388, A061423-A061425.

Programs

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 *)

Extensions

More terms from Robert G. Wilson v, Aug 08 2001