IntegerPartitions[20,{4}]