OFFSET
1,9
COMMENTS
The reciprocal sum of (y_1, ..., y_k) is 1/y_1 + ... + 1/y_k.
A partition is aperiodic if its multiplicities are relatively prime.
LINKS
MATHEMATICA
Table[Length[Select[IntegerPartitions[n], And[GCD@@Length/@Split[#]==1, IntegerQ[1/Sum[1/m, {m, #}]]]&]], {n, 30}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jul 16 2018
EXTENSIONS
a(51)-a(78) from Giovanni Resta, Jul 16 2018
STATUS
approved