登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A298880型 a(n)是{1,2,…,n}的子集数,所有项的乘积<=n^2+n。 1
0, 2, 4, 8, 14, 26, 40, 58, 84, 114, 148, 194, 242, 306, 370, 454, 532, 624, 736, 848, 986, 1120, 1274, 1438, 1618, 1800, 1994, 2220, 2446, 2700, 2950, 3222, 3526, 3830, 4142, 4516, 4832, 5214, 5590, 6020, 6440, 6860, 7356, 7830, 8336, 8816, 9420, 9934, 10532, 11118, 11740, 12396, 13022, 13702 (列表图表参考历史文本内部格式)
抵消
0,2
评论
所有条款都是公平的。
为a(n)计数的子集也为a(n+1)计数,使用它可以简化第一项的计算,因为可以避免重复计数-大卫·A·科内斯2024年4月5日
链接
David A.Corneth,n=0..10000时的n,a(n)表(前501个术语来自Robert Israel)
例子
第一个非平凡的情况是当n=4并且a(4)=14时。{1,2,3,4}有2^4=16个子集。子集{2,3,4}和{1,2,3,4]不满足条目乘积小于或等于n^2+n=(4^4+4=20的条件。{1,2,3,4}有14个子集,其条目的乘积小于20。
MAPLE公司
P: =proc(n,P)选项记忆;
如果n=1且p>1,则返回0 fi;
如果p mod n=0,则进程名(n-1,p)+进程名(n-1,p/n)
else进程名(n-1,p)
fi(菲涅耳)
结束进程:
P(1,1):=2:
P(0,0):=0:
[seq(加(P(n,P),P=1..n^2+n),n=0..100)]#罗伯特·伊斯雷尔,2018年3月6日
数学
P[n,P_]:=P[n,P]=If[n==1&&P>1,0,If[Mod[P,n]==0,P[n-1,P]+P[n-1,P/n],P[n-1,P]]];P[1,1]=2;P[0,0]=0;
a[n]:=总和[P[n,P],{P,1,n^2+n}];
a/@范围[0100](*Jean-François Alcover公司2020年10月26日之后罗伯特·伊斯雷尔*)
黄体脂酮素
(SageMath)[len([S代表子集(n)中的S,如果mul(S)<=n^2+n])代表范围(15)中的n)]
(PARI)
第一(n)={
n--;
最大值=n;
u=n^2+n;
res=矢量(n);
过程(1,1);
对于(i=2,#res,
res[i]+=res[i-1]
);
返回(concat(0,2*res))
}
过程(p,n)={
本人;
s=(平方(4*p+1)>>1);
而(s*(s+1)<p,
秒++
);
res[最大(n,s)]++;
对于(i=n+1,min(maxn,u\p),
过程(p*i,i)
);
} \\大卫·A·科内斯2024年4月5日
交叉参考
关键词
非n,改变
作者
扩展
来自的更多条款罗伯特·伊斯雷尔,2018年3月6日
状态
经核准的

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

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

上次修改时间:2024年4月19日10:56 EDT。包含371791个序列。(在oeis4上运行。)