OFFSET
1,24
FORMULA
a(A362801(n)) > 0.
EXAMPLE
n a(n) partitions
== ==== ==========
6 1 {{1, 2, 3, 6}}
12 1 {{1, 2, 3, 6}, {4, 12}}
24 4 {{1, 2, 3, 6}, {4, 8, 12, 24}}, {{1, 2, 4, 8, 12, 24}, {3, 6}},
{{1, 3, 6}, {2, 4, 8, 12, 24}}, {{1, 2, 3, 6}, {4, 12}, {8, 24}}
MATHEMATICA
harmQ[s_] := AllTrue[s, Length[#] > 1 && IntegerQ[HarmonicMean[#]] &]; a[n_] := Module[{d = Divisors[n], r}, r = ResourceFunction["SetPartitions"][d]; Count[r, _?harmQ]]; Array[a, 119]
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, May 04 2023
STATUS
approved