%I#20 2019年7月23日10:35:33
%S 1,1,2,3,4,6,8,10,14,17,22,27,33,40,48,57,68,79,93107124142162,
%电话:184209235265296331368405250055060566326792864939,
%电话:102111061198129413971505
%N 1/((1-x)(1-x^2)(1-x ^3)(1-x ^5)(1-x^8))的展开。
%C将n划分为等于1、2、3、5和8的部分的数量。例如,a(5)=6,因为我们有5,3+2,3+1+1,2+2+1,2+1+1+1和1+1+1+1_Emeric Deutsch,2005年3月25日
%H Reinhard Zumkeller,n的表,n=0..10000的a(n)</a>
%H<a href=“/index/Rec#order_19”>为具有常数系数的线性递归的索引条目</a>,签名(1,1,0,-1,0,0,-1,1,0,0,-1,1,,0,-1,1,,0,0,-1,1,,0,0,1,0,-1,-1,1)。
%p G:=1/(1-x)/(1-x^2)/(1-x^3)/(-1-x^5)/(1x^8):Gser:=级数(G,x=0,47):1,seq(系数(Gser,x^n),n=1..45);#_Emeric Deutsch,2005年3月25日
%t系数列表[系列[1/产品[1-x^斐波那契[i],{i,2,6}],{x,0,45}],x](*_Robert G.Wilson v_,2016年10月15日*)
%t系数列表[系列[1/((1-x)(1-x^2)(1-x ^3)(1-x-^5)(1-x2^8))),{x,0100}],x](*哈维·P·戴尔,2019年1月26日*)
%o(PARI)Vec(1/((1-x)*(1-x^2)*(1-x^3)*(1x^5)*(2-x^8))+o(x^99))\\_查尔斯·格里塔斯四世,2012年9月27日
%o(哈斯克尔)
%o导入数据。MemoCombinators(memo2,整数)
%o a028290 n=a028290_列表!!n个
%o a028290_list=map(p'0)[0..]其中
%o p’=memo2积分p
%o p _ 0=1
%o p 5 _=0
%o p k m|m<零件!!k=0
%o |否则=p'k(m-部分!!k)+p'(k+1)m
%o部件=[1,2,3,5,8]
%o--_Reinhard Zumkeller_,2015年12月9日
%Y参考A003107、A029145。
%K nonn,简单
%0、3
%编号。J.A.斯隆。
|