OFFSET
1,8
EXAMPLE
The factorizations of 36..48 are (empty columns indicated by dots):
36 . 38 . 40 . 42 . 44 . 46 . 48
2*18 2*20 2*22 6*8
4*10 2*24
4*12
2*4*6
MATHEMATICA
facs[n_]:=If[n<=1, {{}}, Join@@Table[Map[Prepend[#, d]&, Select[facs[n/d], Min@@#>=d&]], {d, Rest[Divisors[n]]}]];
Table[Length[Select[facs[n], UnsameQ@@#&&OddQ[Times@@(#+1)]&]], {n, 100}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Oct 17 2022
STATUS
approved