%I#15 2020年8月16日20:49:29
%S 0,0,0,1,1,1,2,2,2,4,5,5,5,7,8,11,14,15,19,22,23,27,33,37,38,
%电话44,50,54,60,71,79,84,94106114125143169187208225242273,
%电话:302323351390421451498551590636697757807819651039
%N将N个分区分成7k+1和7k+4部分,每种类型至少有一个部分。
%H Alois P.Heinz,n表,n=1..1000时的a(n)
%联邦政府:(-1+1/产品{k>=0}(1-x^(7k+1)))*(-1+1/产品{k>=0{(1-x ^(7 k+4))_罗伯特·普莱斯,2020年8月16日
%t nmax=64;s1=范围[0,nmax/7]*7+1;s2=范围[0,nmax/7]*7+4;
%t表[Count[Integer Partitions[n,All,s1~Join~s2],
%t x_/;包含任意[x,s1]和&包含任意[x,s2]],{n,1,nmax}](*_Robert价格,2020年8月14日*)
%t nmax=64;l=Rest@系数列表[系列[(-1+1/产品[(1-x^(7k+1))),{k,0,nmax}])*(-1+1/Product[(1-x(7k+4)
%Y参见A035441-A035468、A035618-A035658、A05660-A035699。
%K nonn公司
%O 1,9型
%A _利维尔·杰拉德_
|