免費論壇 繁體 | 簡體
Sclub交友聊天~加入聊天室當版主
分享
返回列表 发帖

素数分组使组和构成等差数列

怎么将前10个素数分为三组,使得每组之和构成等差数列。
Example :
{2, 5, 13, 17}
{3, 11, 29}
{7, 19, 23}
分享到: QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友

回复 1# 青青子衿


这问题提得有意思

TOP

MMA代码:
...
  1. plist = Prime@Range[10];
  2. Select[Subsets[plist], (Total[#] == Total[plist]/3) &] // Column
复制代码
...
先确定出等差中项的可能性:
\begin{align*}
3+11+29&=43\\
3+17+23&=43\\
7+13+23&=43\\
7+17+19&=43\\
11+13+19&=43\\
2+\phantom{0}5+\phantom{0}7+29&=43\\
2+\phantom{0}5+13+23&=43\\
2+\phantom{0}5+17+19&=43\\
2+\phantom{0}7+11+23&=43\\
2+11+13+17&=43\\
3+\phantom{0}5+\phantom{0}7+11+17&=43
\end{align*}

TOP

返回列表 回复 发帖