%I#12 2018年1月5日03:00:26

%编号：1,2,10,12,58140338408295547561482277206922161564780100，

%电话：470832227337882326301325021831988856154455860186444716，

%电话：4501173621086679440393521436333631924305814801803691511210489120964298430314081400519435045698

%N a（N）=Pell（N）*A001227（N）对于N>=1，其中A001228（N）是N的奇数除数。

%比较g.f.与A001227的Lambert级数：和{n>=1}x^（2*n-1）/（1-x^。

%H G.C.Greubel，n表，n=1..1000时的a（n）</a>

%F G.F.：总和{n>=1}Pell（2*n-1）*x^。

%通用公式：A（x）=x+2*x^2+10*x^3+12*x^4+58*x^5+140*x^6+338*x^7+。。。

%e其中A（x）=1*1*x+2*1*x^2+5*2*x^3+12*1*x*4+29*2*x^5+70*2*x ^6+169*2**x^7+408*1*x ^8+…+佩尔（n）*A0001227（n）*x^n+。。。

%e g.f.也由恒等式给出：

%e A（x）=1*x/（1-2*x-x^2）+5*x^3/（1-14*x^3-x^6）+29*x^5/（1-82*x^5-x^10）+169*x^7/（1-478*x^7-x^14）+985*x^9/（1-2786*x^9-x^18）+5741*x^11/（1-16238*x^11-x^22）+。。。

%e包含奇数诱导Pell和A002203数字。

%t A001227[n_]：=总和[Mod[d，2]，{d，除数[n]}]；表[Fibonacci[n，2]*A001227[n]，{n，11000}]（*_G.C.Greubel_，2018年1月2日*）

%o（PARI）{佩尔（n）=波尔科夫（x/（1-2*x-x^2+x*o（x^n）），n）}

%o{A002203（n）=球（n-1）+球（n+1）}

%o{a（n）=polcoeff（总和（m=1，n，Pell（2*m-1）*x^（2*m-1）/（1-A002203（2*.m-1）x^

%o表示（n=1.40，打印1（a（n），“，”）

%Y参见A001227、A205965、A209444、A20944、A204270。

%K nonn公司

%O 1,2号机组

%A _保罗·D·汉纳，2012年3月9日