February 11th, 2009, 8:05 pm
tabela2 = Sort[Map[{{Apply[Plus, #], Apply[Times, #], Length[#], #.#}, #} &, Flatten[Table[Partitions[j], {j, 1, 30}], 1]]];Select[Tally[First[Transpose[tabela2]]], (Last[#] > 1) &]{{{26, 3456, 7, 124}, 2}, {{27, 2560, 6, 165}, 2}, {{27, 3456, 8, 125}, 2}, {{28, 2560, 7, 166}, 2}, {{28, 3456, 9, 126}, 2}, {{28, 6912, 8, 128}, 2}, {{29, 2560, 8, 167}, 2}, {{29, 3456, 10, 127}, 2}, {{29, 5120, 7, 169}, 2}, {{29, 6912, 9, 129}, 2}, {{29, 10368, 8, 133}, 2}, {{30, 1260, 4, 314}, 2}, {{30, 2560, 9, 168}, 2}, {{30, 3456, 11, 128}, 2}, {{30, 3600, 5, 234}, 2}, {{30, 5120, 8, 170}, 2}, {{30, 6912, 10, 130}, 2}, {{30, 7680, 7, 174}, 2}, {{30, 10368, 9, 134}, 2}, {{30, 13824, 8, 140}, 2}, {{30, 13824, 9, 132}, 2}}Select[tabela2, (First[#] == {26, 3456, 7, 124}) &]{{{26, 3456, 7, 124}, {6, 6, 6, 2, 2, 2, 2}}, {{26, 3456, 7, 124}, {8, 4, 4, 3, 3, 3, 1}}}So bus = 26, age = 3456 (within the parameters of the generalized problem: "In this generalized puzzle, you should assume that wizards can live thousands of years, and keep their libido that whole time. Wizards might spend so much of their youth thinking, that they postpone starting their families for a long time. The wizards wives are also generalized. They can produce children in great quantities and deliver multiple children at the same time in numbers exceeding the current world record."), 7 children, 124 dinossaurs.