- f[n_]:=(x=Select[Flatten[Table[Table[{a,r[[2]]},{a,Permutations[r[[1]]]}],{r,Tuples[PadLeft@IntegerPartitions[n,3],{2}]}],1],Max[#[[1]]+#[[2]]]<=n&];{n,SortBy[Table[{r,Total[2^r[[1]]*3^r[[2]]]},{r,x}],Last][[1]]});Do[Print@f[n],{n,2,40}]
复制代码
{2,{{{1,1},{1,1}},12}}
{3,{{{1,1,1},{1,1,1}},18}}
{4,{{{0,2,2},{2,1,1}},33}}
{5,{{{1,1,3},{2,2,1}},60}}
{6,{{{2,2,2},{2,2,2}},108}}
{7,{{{1,3,3},{3,2,2}},198}}
{8,{{{2,2,4},{3,3,2}},360}}
{9,{{{3,3,3},{3,3,3}},648}}
{10,{{{2,4,4},{4,3,3}},1188}}
{11,{{{0,3,8},{6,4,1}},2145}}
{12,{{{4,4,4},{4,4,4}},3888}}
{13,{{{0,5,8},{7,4,2}},7083}}
{14,{{{12,1,1},{0,7,7}},12844}}
{15,{{{5,5,5},{5,5,5}},23328}}
{16,{{{1,6,9},{8,5,3}},42498}}
{17,{{{2,2,13},{8,8,1}},77064}}
{18,{{{6,6,6},{6,6,6}},139968}}
{19,{{{2,7,10},{9,6,4}},254988}}
{20,{{{3,3,14},{9,9,2}},462384}}
{21,{{{7,7,7},{7,7,7}},839808}}
{22,{{{0,11,11},{12,5,5}},1526769}}
{23,{{{4,4,15},{10,10,3}},2774304}}
{24,{{{8,8,8},{8,8,8}},5038848}}
{25,{{{1,12,12},{13,6,6}},9160614}}
{26,{{{5,5,16},{11,11,4}},16645824}}
{27,{{{9,9,9},{9,9,9}},30233088}}
{28,{{{2,13,13},{14,7,7}},54963684}}
{29,{{{6,6,17},{12,12,5}},99874944}}
{30,{{{10,10,10},{10,10,10}},181398528}}
{31,{{{3,14,14},{15,8,8}},329782104}}
{32,{{{7,7,18},{13,13,6}},599249664}}
{33,{{{11,11,11},{11,11,11}},1088391168}}
{34,{{{4,15,15},{16,9,9}},1978692624}}
{35,{{{0,8,27},{19,14,2}},3594661083}}
{36,{{{12,12,12},{12,12,12}},6530347008}}
{37,{{{5,16,16},{17,10,10}},11872155744}}
{38,{{{1,9,28},{20,15,3}},21567966498}}
{39,{{{13,13,13},{13,13,13}},39182082048}}
{40,{{{6,17,17},{18,11,11}},71232934464}} |