OFFSET
1,18
EXAMPLE
Triangle begins:
1: 0
2: 0 1
3: 0 1
4: 0 1 1
5: 0 1
6: 1 0 0 1
7: 0 1
8: 0 2 0 1
9: 0 1 1
10: 1 0 0 1
11: 0 1
12: 2 1 0 0 0 1
13: 0 1
14: 1 0 0 1
15: 1 0 0 1
16: 0 3 1 0 1
17: 0 1
18: 2 0 1 0 0 1
19: 0 1
20: 2 1 0 0 0 1
MATHEMATICA
facs[n_]:=If[n<=1, {{}}, Join@@Table[Map[Prepend[#, d]&, Select[facs[n/d], Min@@#>=d&]], {d, Rest[Divisors[n]]}]];
goc[n_, m_]:=Length[Select[facs[n], And[And@@(Divisible[#, m]&/@#), GCD@@(#/m)==1]&]];
Table[goc[n, d], {n, 30}, {d, Divisors[n]}]
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
Gus Wiseman, Aug 06 2018
STATUS
approved