#来自在线整数序列百科全书的问候!http://oeis.org/; 搜索:id:a241390 展示1-1的1-1 ;%I a241390;%S a241390 1,0,0,1,1,1,1,3,3,3,6,8,12,15,22,22,31,37,37,56,67,921161616190255310406498,8,12,15,22,31,37,37,56,67,67,9211616190251041040406498,;%T A24139063878798812115151716229029028028024242424242424242424242424242424242424242424242929024242424242446244624462929297983196137890451485337663253,74626 %N A241390分区的数目p的N,使得不同部分的数目不是一个部分并且max(p)-min(p)不是一个部分。 %F A241390 a(N)+A241391(N)=a00041(N)当N>=0时。 %e A241390 a(6)计算这6个分区:6,51,411,33,3111,222。 %t A241390 z=40;F[N_]:=F[N]=整数分区[N];d[p_9]:=d[p]=长度[DeleteDuplicates[p]]; %t A241390表[Count[f[n],p_/;MemberQ[p,d[p]]&&MemberQ[p,Max[p]--Min[p]],{n,0,z}](*A241387*);%t A241390表格[Count[f[n],p_/!MemberQ[p,d[p]]&&MemberQ[p,Max[p]-Min[p]],{n,0,z}](*A241388*) %t A241390表格[Count[f[n],p_/;MemberQ[p,d[p]&&!MemberQ[p,Max[p]-Min[p]],{n,0,z}](*A241389*) %t A241390表格[Count[f[n],p_/!成员Q[p,d[p]]&&![p,Max[p],[[p]],[[p][p]],[[年]n,0,z}](*A241390*)的;%t A241390表[计数[f[f[n],p[p[p,d[p]]][[合合一]的| |成员资格[p,Max[p]-Min[p]]],[[[p][[[p]][[[[n,0,z}](*A241391**)(*A241391*)%Y A241390的联合A2413877,A241388,A241389,A241389,A241391,A000041.A000041.被被被;%K A2414141414141390不,简单 %O A241390 0,5 %A A241390,2014年4月21日 #内容根据OEIS最终用户许可协议提供:http://OEIS.org/License