OEIS哀悼西蒙斯感谢西蒙斯基金会支持包括OEIS在内的许多科学分支的研究。
登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A174062号 小于2n的n个正整数的最小可能和,使得n个整数中没有一个整数可以相除。 1
1、5、10、17、31、42、55、75、92、111、139、162、187、233、262、293、337、372、409、461、502、545、615、662、711、779、832、887、963、1022、1083、1181、1246、1313、1405、1476、1549、1649、1726、1805、1951、2034、2119、2235、2324、2415、2539、2634、2731、2885 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,2
链接
MAPLE公司
f: =proc(N)局部i,j,obj,cons;
obj:=加(i*x[i],i=1..2*N-1);
缺点:={seq(seq(x[i]+x[j]<=1,j=2*i..2*N-1,i),i=1..N),
加(x[i],i=1..2*N-1)=N};
优化:最小化(obj,cons,assume=binary)[1]
结束进程:
地图(f,[1..60]美元)#罗伯特·伊斯雷尔2019年5月6日
数学
a[n_]:=模块[{obj,cons},
obj=总和[i*x[i],{i,1,2n-1}];
cons=Append[Flatten[Table[x[i]+x[j]<=1,{j,2i,2n-1,i}],{i,1,n}],1],AllTrue[Array[x,2n-1],0<=#<=1&]&Sum[x[i],{i,1,2n-1']==n];
最小化[{obj,cons},数组[x,2n-1],整数][[1]]];
Reap[对于[n=1,n<=50,n++,打印[n,“”,a[n]];母猪[a[n]]][[2,1]];(*Jean-François Alcover公司2023年5月17日之后罗伯特·伊斯雷尔*)
交叉参考
囊性纤维变性。A174063号A174094号.
三角形的行和A174063号. [大卫·布朗,2010年3月20日]
关键词
非n
作者
大卫·布朗2010年3月6日
扩展
由扩展雷·钱德勒2010年3月19日
状态
经核准的

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间:2024年5月28日14:43 EDT。包含372913个序列。(在oeis4上运行。)