A062184 Harmonic mean of digits is 6.

6, 66, 488, 666, 848, 884, 3999, 4688, 4868, 4886, 6488, 6666, 6848, 6884, 8468, 8486, 8648, 8684, 8846, 8864, 9399, 9939, 9993, 36999, 38888, 39699, 39969, 39996, 44999, 46688, 46868, 46886, 48668, 48686, 48866, 49499, 49949, 49994, 63999

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] == 6, Print[n]], {n, 1, 10^6}]

Extensions

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