OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..100
MATHEMATICA
Do[ h = IntegerDigits[n]; If[ Sort[h][[1]] != 0 && Length[h]/Apply[Plus, 1/h] == 6, Print[n]], {n, 1, 10^6}]
(* Alternative: *)
Select[Range[64000], HarmonicMean[IntegerDigits[#]]==6&] (* Harvey P. Dale, Jul 31 2026 *)
CROSSREFS
KEYWORD
base,easy,nonn,changed
AUTHOR
Vladeta Jovovic, Jun 12 2001
EXTENSIONS
More terms from Robert G. Wilson v, Aug 08 2001
STATUS
approved

