%I#4 2015年9月16日19:34:48

%S 2,2,2,2,4,2,3,9,9,3,7,24,34,24,7,31103154103,312417781055，

%电话：1036105577824131211012712957100831008312957101273121，

%电话：655212151482747241840201120117846184020274724215148655222276817378804

%N斐波那契数的对称三角序列（A000045）：p（x，N）=乘积[1+Fibonacci[i]*x，{i，0，N}]+x^N*乘积[1+斐波那奇[i]/x，{i，0，N}]。

%C行总和为：

%丙{2，4，8，24，96，576，5184，72576，1596672，55883520，3129477120，…}。

%C如果您服用：

%C和H（i）作为量子磁场：

%C乘积[1+H（i）*x，｛i，0，n｝]

%C得到的序列是斯特林数。

%C使其对称：

%Cp（x，n）=乘积[1+H（i）*x，{i，0，n}]+x^n*乘积[1+H（i）/x，{i，0，n}]

%现在，你可以放入任意一个a（n）序列，得到一个对称的

%C多项式返回。

%F p（x，n）=乘积[1+斐波那契[i]*x，{i，0，n}]+x^n*乘积[1+Fibonacci[i]/x，{i，0，n}]；

%F t（n，m）=系数（p（x，n））

%e{{2}，

%e{2,2}，

%e{2,4,2}，

%e{3,9,9,3}，

%e{7，24，34，24，7}，

%e｛31、103、154、154、103、31｝，

%电子邮箱{241778105510361055778241}，

%电子邮箱{312110127129571008312957101273121}，

%电子邮箱{65521,215148,27472418402011784618402027472421514865521}，

%电子邮箱：{2227681、7378804、9521213、6204407、2609655、26096556、6204007、95212137、378804、2227681}，

%电子邮箱{122522401、408057203、530891673、348306220、128955206、52011714、12895526、34830.6220、5308S1673、408056203、122522401}

%t清除[p，x，n]；p[x_，n_]=乘积[1+斐波那契[i]*x，{i，0，n}]+x^n*乘积[1+Fibonacci[i]/x，{i，0，n}]；\！表[系数列表[FullSimplify[ExpandAll[p[x，n]]，x]，{n，0，10}]；

%t压扁[%]

%粤A000045

%K nonn，tabl，未经编辑

%0、1

%A _Roger L.Bagula，2009年1月16日