繁體
|
簡體
Sclub交友聊天~加入聊天室當版主
(檢舉)
分享
新浪微博
QQ空间
人人网
腾讯微博
Facebook
Google+
Plurk
Twitter
Line
快速注册
登录
论坛
搜索
帮助
原始风格
brown
purple
green
red
orange
gray
pink
violet
blue
greyish-green
jeans
greenwall
私人消息 (0)
公共消息 (0)
系统消息 (0)
好友消息 (0)
帖子消息 (0)
应用通知 (0)
应用邀请 (0)
悠闲数学娱乐论坛(第2版)
»
Mathematica
» 素数分组使组和构成等差数列
返回列表
发帖
青青子衿
发短消息
加为好友
青青子衿
当前离线
UID
230
帖子
1123
主题
411
精华
0
积分
7553
威望
2
阅读权限
150
在线时间
3476 小时
注册时间
2013-9-20
最后登录
2022-6-6
1
#
跳转到
»
倒序看帖
打印
字体大小:
t
T
发表于 2019-8-14 09:46
|
只看该作者
素数分组使组和构成等差数列
怎么将前10个素数分为三组,使得每组之和构成等差数列。
Example :
{2, 5, 13, 17}
{3, 11, 29}
{7, 19, 23}
收藏
分享
分享到:
QQ空间
腾讯微博
腾讯朋友
isee
发短消息
加为好友
isee
当前离线
UID
15
帖子
5033
主题
697
精华
0
积分
31361
威望
18
阅读权限
90
性别
男
在线时间
8792 小时
注册时间
2013-6-15
最后登录
2022-12-7
2
#
发表于 2019-8-14 14:31
|
只看该作者
回复
1#
青青子衿
这问题提得有意思
TOP
青青子衿
发短消息
加为好友
青青子衿
当前离线
UID
230
帖子
1123
主题
411
精华
0
积分
7553
威望
2
阅读权限
150
在线时间
3476 小时
注册时间
2013-9-20
最后登录
2022-6-6
3
#
发表于 2019-8-16 18:45
|
只看该作者
MMA代码:
...
plist = Prime@Range[10];
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
返回列表
回复
发帖
[收藏此主题]
[关注此主题的新回复]
[通过 QQ、MSN 分享给朋友]