%I#10 2022年2月15日08:15:44
%S 1,1,2,2,4,4,7,7,11,10,15,14,21,19,27,23,35,30,44,37,54,44,67,55,81,
%电话65,96,75115,89133102155116180134206153236171271194305,
%电话:22034624239127343830548933455137460841267447750494823
%N将N划分为8个素数的分区数(将1作为素数计算)。
%p b:=proc(n,i)选项记忆;系列(`if`(n=0,1,
%p`if`(i<0,0,(p->`if`,(p>n,0,x*b(n-p,i)))(
%p`if`(i=0,1,ithprime(i)))+b(n,i-1))),x,9)
%p端:
%p a:=n->系数(b(n,数值理论[pi](n)),x,8):
%p序列(a(n),n=8..68);#_Alois P.Heinz_,2021年2月24日
%t b[n_,i_]:=b[n,i]=系列[如果[n==0,1,
%t如果[i<0,0,函数[p,如果[p>n,0,x*b[n-p,i]]][
%t如果[i==0,1,素数[i]]+b[n,i-1]]],{x,0,9}];
%t a[n_]:=系数[b[n,PrimePi[n]],x,8];
%t表[a[n],{n,8,68}](*_Jean-François Alcover_,2022年2月15日,在_Alois P.Heinz_*之后)
%Y参见A008578、A034891、A259198、A341945、A34194、A3411946、A3419.47、A34198、A3411949、A341950。
%K nonn公司
%O 8,3号机组
%A _Ilya Gutkovskiy,2021年2月24日
|