登录
OEIS基金会得到了OEIS用户的捐赠和西蒙斯基金会的资助。

 

标志

请做一个捐赠让OEIS继续运行。我们现在已经56岁了。在过去的一年里,我们增加了10000个新序列,达到了近9000个引用(通常说“感谢OEI的发现”)。
其他方式捐赠

提示
(问候来自整数序列在线百科全书!)
A241390 n的p的个数,使得不同部分的个数不是一个部分,max(p)-min(p)不是一个部分。 5

%我

%S 1,0,1,1,3,3,6,8,12,15,22,31,37,56,67,92116156190255310406498,

%电话:638787879881212151718562290280234414185099616674609015,

%U 108791304915716187522246926798319613789045148533766325374626

%N分区的数目p/N,使得不同部分的数目不是一个部分,max(p)-min(p)不是一个部分。

%对于n>=0,F a(n)+A241391(n)=A000041(n)。

%ea(6)计算这6个分区:6、51、411、33、3111、222。

%t z=40;f[n_x]:=f[n]=整数部分[n];d[p_u]:=d[p]=长度[DeleteDuplicates[p]];

%t表[Count[f[n],p_/;MemberQ[p,d[p]]&&MemberQ[p,Max[p]--Min[p]],{n,0,z}](*A241387*)

%t表[Count[f[n],p_2;!MemberQ[p,d[p]]&&MemberQ[p,Max[p]-Min[p]],{n,0,z}](*A241388*)

%t表[Count[f[n],p/;成员Q[p,d[p]]&&!成员q[p,Max[p]-Min[p]],{n,0,z}](*A241389*)

%t表[Count[f[n],p_2;!成员Q[p,d[p]]&&!成员q[p,Max[p]-Min[p]],{n,0,z}](*A241390*)

%t表[Count[f[n],p_/;MemberQ[p,d[p]]| | MemberQ[p,Max[p]-Min[p]],{n,0,z}](*A241391*)

%参见A241387、A241388、A241389、A241391、A000041。

%不,别紧张

%0.5度

%阿尤克拉克金伯利,2014年4月21日

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

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

上次修改时间:美国东部时间2020年11月27日14:10。包含338683个序列。(运行在oeis4上。)