0,4个
n=0..40时的n,a(n)表。
与合成相关的序列的索引项
G、 f.:1/(1-x-和{k>=2}x^素数(k))。
a: =proc(n)选项记住;`if`(n=0,1,a(n-1)+
加法(`if`(isprime(j),a(n-j),0),j=3..n)
结束:
顺序(a(n),n=0..42)#海因茨2019年8月12日
nmax=42;系数列表[Series[1/(1-x-Sum[x^Prime[k],{k,2,nmax}]),{x,0,nmax}],x]
a[0]=1;a[nΒ:=a[n]=Sum[Boole[PrimeOmega[k]<2&&OddQ[k]]a[n-k],{k,1,n}];表[a[n],{n,0,42}]
囊性纤维变性。A002124号,A006005年,A008578号,A023360型,A080545号,A280917型,A298603,A298604号.
上下文顺序:A117760号 A181600型 A111917年*A280198 A175712号 A013986号
相邻序列:A309673飞机 A309674飞机 A309675型*A309677飞机 A309678飞机 A309679型
不
伊利亚·古特科夫斯基2019年8月12日
经核准的