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,1

Links

Table of n, a(n) for n=1..39.

Mathematica

Do[ h = IntegerDigits[n]; If[ Sort[h][[1]] != 0 && Length[h]/Apply[Plus, 1/h] == 6, Print[n]], {n, 1, 10^6}]

Crossrefs

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

Sequence in context: A028559 A249639 A163699 * A119214 A075138 A227164

Adjacent sequences: A062181 A062182 A062183 * A062185 A062186 A062187

Keyword

base,easy,nonn

Author

Vladeta Jovovic, Jun 12 2001

Extensions

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

Status

approved