| 数据
|
1, 0, 5, 1, 42, 43, 429, 820, 4861, 12597, 58598, 177859, 732825, 2417416, 9358677, 32256553, 120902914, 426440955, 1571649221, 5610955132, 20497829133, 73645557469, 267803779710, 965384509651, 3502058316337, 12646311635088, 45818284122149
|
| 数学
|
q[x_]:=x+1;d=2;
p[n,x_]:=((x+d)^n+(x-d)^n)/2(*类似于在A161516号*)
表[展开[p[n,x]],{n,0,6}]
约简规则={x^y_?EvenQ->q[x]^(y/2),
x^y_?奇数q->xq[x]^((y-1)/2)};
t=表[Last[Most[FixedPointList[Expand[#1/.reductionRules]&,p[n,x]]],{n,0,30}]
表[系数[部分[t,n],x,0],{n,1,30}](*A192353号*)
表[系数[部分[t,n],x,1],{n,1,30}](*A192354号*)
|