OFFSET
1,1
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
12 is a term since its nonsquarefree divisors are 4 and 12 and their harmonic mean is 6 which is an integer.
MATHEMATICA
q[n_] := Length[d = Select[Divisors[n], ! SquareFreeQ[#] &]] > 0 && IntegerQ[HarmonicMean[d]]; Select[Range[2000], q]
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Oct 01 2022
STATUS
approved