提出
经核准的
编辑
a[n_]:=计数[(列表@@Expand[(1+x+x^3+x^4)^n])/。x->1,_?奇数Q];a[0]=1;
表[a[n],{n,0,60}](*Jean-François Alcover公司2017年4月4日*)
Alois P.Heinz,<a href=“/A255486型/b255486.txt“>n表,n=0..8191时为a(n)</a>
检验过的
(PARI)a(n)={my(pol=(1+x+x^3+x^4)*Mod(1,2));subst(lift(pol^n),x,1);}\\米歇尔·马库斯2015年3月1日