%I#7 2020年1月30日18:15:00
%S 1,0,1,1,1,2,2,3,1,5,1,5,4,6,11,1,11,1,6,12,1,23,18,8,23,1,69,
%电话:1,32,13,38,7,84,1,54,19,79,1224,1,90,46104,1264,5187,39166,1,
%U 449、14251、55256、11374、1340111390、201692、15131051610
%N将N划分为不同部分的数量,公共因子>1,N。
%H<a href=“/index/Par#part”>与分区相关的序列的索引条目</a>
%F a(n)=[x^n]产品{k:gcd(n,k)>1}(1+x^k)。
%e a(12)=5,因为我们有[12],[10,2],[9,3],[8,4]和[6,4,2]。
%p a:=proc(m)选项记忆;局部b;b:=
%p proc(n,i)选项记住`如果`(i*(i+1)/2<n,0,`如果`(n=0,1,
%p`if`(igcd(i,m)>1,b(n-i,min(i-1,n-i)),0)+b(n,i-1))
%p端;忘记(b);b(百万美元)
%p端:
%p序列(a(n),n=0..82);#_阿洛伊斯·海因茨,2020年1月30日
%t表[级数系数[积[(1+Boole[GCD[k,n]>1]x^k),{k,1,n}],{x,0,n}],{n,0,70}]
%Y参考A036998、A121998、A1 75787(1的位置)、A303280、A331885、A33188。
%K nonn公司
%0、7
%A _Ilya Gutkovskiy_,2020年1月30日
|