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日

经核准的