OFFSET
1,4
COMMENTS
LINKS
FORMULA
a(2^n) = A330994(n).
MATHEMATICA
facs[n_]:=If[n<=1, {{}}, Join@@Table[Map[Prepend[#, d]&, Select[facs[n/d], Min@@#>=d&]], {d, Rest[Divisors[n]]}]];
Table[Length[facs[n]]/Length[Select[facs[n], UnsameQ@@#&]], {n, 100}]//Numerator
PROG
CROSSREFS
Positions of 1's are A005117.
Positions of 2's appear to be A001248.
The denominators are A331024.
The rounded quotients are A331048.
The same for integer partitions is A330994.
KEYWORD
nonn,frac
AUTHOR
Gus Wiseman, Jan 08 2020
EXTENSIONS
More terms from Antti Karttunen, May 27 2021
STATUS
approved