分支定界怎么样?
In[1]:= f[k_]:=Floor[(Sqrt[4*(4k-6)+1]-1)/2];
Table[{k,f[k],(k+k-f[k]+1)*f[k]/2},{k,2,99}]
Out[2]= {{2,1,2},{3,2,5},{4,2,7},{5,3,12},{6,3,15},{7,4,22},{8,4,26},{9,5,35},{10,5,40},{11,5,45},{12,6,57},{13,6,63},{14,6,69},{15,6,75},{16,7,91},{17,7,98},{18,7,105},{19,7,112},{20,8,132},{21,8,140},{22,8,148},{23,8,156},{24,9,180},{25,9,189},{26,9,198},{27,9,207},{28,9,216},{29,10,245},{30,10,255},{31,10,265},{32,10,275},{33,10,285},{34,10,295},{35,11,330},{36,11,341},{37,11,352},{38,11,363},{39,11,374},{40,11,385},{41,12,426},{42,12,438},{43,12,450},{44,12,462},{45,12,474},{46,12,486},{47,13,533},{48,13,546},{49,13,559},{50,13,572},{51,13,585},{52,13,598},{53,13,611},{54,14,665},{55,14,679},{56,14,693},{57,14,707},{58,14,721},{59,14,735},{60,14,749},{61,14,763},{62,15,825},{63,15,840},{64,15,855},{65,15,870},{66,15,885},{67,15,900},{68,15,915},{69,15,930},{70,16,1000},{71,16,1016},{72,16,1032},{73,16,1048},{74,16,1064},{75,16,1080},{76,16,1096},{77,16,1112},{78,17,1190},{79,17,1207},{80,17,1224},{81,17,1241},{82,17,1258},{83,17,1275},{84,17,1292},{85,17,1309},{86,17,1326},{87,18,1413},{88,18,1431},{89,18,1449},{90,18,1467},{91,18,1485},{92,18,1503},{93,18,1521},{94,18,1539},{95,18,1557},{96,18,1575},{97,19,1672},{98,19,1691},{99,19,1710}}
应当可以去掉很大部分的工作,比方50的时候 {50,13,572} ,剩余的价值不可能超过 572 |