OFFSET
1,7
EXAMPLE
Triangle begins:
1
1 1
1 1
1 2 1
1 1
1 3 3 1
1 1
1 5 4 1
1 7 1
1 7 5 1
1 1
1 11 15 12 6 1
1 1
1 15 7 1
1 30 19 1
1 22 34 8 1
MATHEMATICA
Table[Length[Select[IntegerPartitions[n], Mean[#]==d&]], {n, 20}, {d, Divisors[n]}]
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
Gus Wiseman, Sep 13 2019
STATUS
approved