OFFSET
1,9
EXAMPLE
Triangle begins:
1
0 1
1 1
1 0 1
2 1
2 1 0 1
4 1
4 1 0 1
6 1 1
7 2 0 1
11 1
10 2 1 1 0 1
17 1
17 4 0 1
23 2 1 1
26 4 1 0 1
37 1
36 6 2 1 0 1
53 1
53 7 2 1 0 1
MATHEMATICA
Table[Length[Select[IntegerPartitions[n], And[UnsameQ@@#, GCD@@#==k]&]], {n, 20}, {k, Divisors[n]}]
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
Gus Wiseman, Sep 16 2018
STATUS
approved