%I#6 2019年8月12日15:42:50
%S 1,1,2,3,5,8,13,21,33,53,861382223575739211481238138286153,
%电话:989015898255564108266039106156170644274307440945708815,
%电话:1139412183158929442534732847776079891222974319659153316018285079951781659549
%N N到奇数素数(包括1)的合成数(有序分区)。
%H<a href=“/index/Com#comp”>与合成相关的序列的索引条目</a>
%F G.F.:1/(1-x-和{k>=2}x^素数(k))。
%p a:=proc(n)选项记忆`如果`(n=0,1,a(n-1)+
%p加(“if”(isprime(j),a(n-j),0),j=3..n))
%p端:
%p序列(a(n),n=0..42);#_Alois P.Heinz,2019年8月12日
%t nmax=42;系数列表[级数[1/(1-x-和[x^素数[k],{k,2,nmax}]),{x,0,nmax{],x]
%ta[0]=1;a[n_]:=a[n]=和[Boole[PrimeOmega[k]<2&&OddQ[k]]a[n-k],{k,1,n}];表[a[n],{n,0,42}]
%Y参见A002124、A006005、A008578、A023360、A080545、A280917、A298603、A298640。
%K nonn公司
%0、4
%A_Ilya Gutkovskiy_,2019年8月12日
|