%I#24 2018年6月21日03:05:56

%S 1,0,5，-2,0,10，-1,0,25,2,0,50,1,0100,4,0170，-6,0305，-2,0500,2,0，

%电话825,0,01300,10,02040，-14,03100，-5,04700,8,06950,4,010225,20,0，

%U 14800，-28,021285，-10,030200,14,042625,4,059500,39,082610，-56,0113690，-20,0

%N可复制函数编号15a的系数。

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

%H D.Ford、J.McKay和S.P.Norton，<a href=“http://dx.doi.org/101080/00927879408825127“>关于可复制函数的更多信息，《公共代数》22，第13期，5175-5193（1994）。

%H<a href=“/index/Mat#McKay_Thompson”>Monster简单组的McKay-Thompson系列索引条目</a>

%F扩展A+5*q^2/A，其中A=q*（eta（q^3）/eta（q^15））^2，由q.-_G.C.Greubel_于2018年6月21日授权

%e T15a=1/q+5*q-2*q^2+10*q^4-q^5+25*q^7+2*q^8+50*qq^10+q^11+。。。

%t eta[q_]：=q^（1/24）*q赭锤[q]；e15D:=q^（1/3）*（eta[q]/eta[q^5]）^2；

%t a[n_]：=级数系数[（e15D/.{q->q^3}）+5*q^2/（e15D/.{q->q^3{），{q，0，n}]；表[a[n]，{n，0,50}]（*_G.C.Greubel_，2018年2月14日*）

%o（PARI）{a（n）=my（a）；如果（n<-1，0，n++；a=x*o（x^n）；a=（eta（x^3+a）/eta（x^15+a））^2；极系数（a+5*x^2/a，n））}；/*_迈克尔·索莫斯（Michael Somos），2018年2月18日*/

%Y参考A000521、A007240、A014708、A007241、A007267、A045478等。

%K符号

%O-1,3

%A _N.J.A.Sloane，2000年11月27日

%E条款a（24），由_G.C.Greubel添加，2018年2月14日