%I#15 2016年4月9日12:21:15

%S 1,1,1,1,4,1,11,11,1,1,26,64,26,1,1,57300300,57,1,112012872770，

%电话1287120,1,1247531323587235875313247,1150221562194254，

%电话：40150419425421562502,11013868341575986661936866193681575986834

%N三角形t（N，m）=2*A022166（N，m）-二项式（N，米），按行读取，0<=m<=N。

%C行总和为1、2、6、24、118、716、5586、58296、834142、16566404、459510186，…=2*A006116（n）-2^n。

%C列m=1可能是A000295_R.J.Mathar_，2011年11月14日

%e 1；

%e 1，1；

%e 1、4、1；

%e 1、11、11、1；

%e 1、26、64、26、1；

%e 1、57、300、300、57、1；

%e 11201287277012871201；

%e 1247531323587235875313247，1；

%e 1、502、21562、194254、401504、194254/21562/502、1；

%电子邮箱：1013、86834、1575986、6619368、66193681、15759868、868341013、1；

%e 120363484571269531010748776421844305010748776126953103484572036,1；

%p A174526：=进程（n，k）

%p 2*A022166（n，k）-二项式（n，k）；

%p端程序：

%p序列（序列（A174526（n，m），m=0..n），n=0..10）；#_R.J.Mathar，2011年11月14日

%tc[n_，q_]=乘积[1-q^i，{i，1，n}]；

%t t[n_，m_，q_]=2*c[n，q]/（c[m，q]*c[n-m，q]）-二项式[n，m]；

%t表格[扁平[表格[表格[t[n，m，q]，{m，0，n}]，{n，0，10}]]，{q，2，12}]

%t（*第二个程序：*）

%t t[n_，m_]：=2 Q二项式[n，m，2]-二项式[n，m]；表[t[n，m]，{n，0，10}，{m，0，n}]//Flatten（*Jean-François Alcover_，2016年4月9日*）

%Y参考A008292。

%K nonn，表

%0、5

%A _Roger L.Bagula和_ Gary W.Adamson_，2010年3月21日