%I#26 2024年1月11日16:06:33

%S 1,1,2,0,1,3,1,0,1,6,0,0,1,1,7,2,1,0,0,1,14,0,0-0,00,17,3,0,1.0，

%温度0,0,1,27,0,2,0,0,00,0_0,0,0，0,1,34,6,0,1,0,0.0,0,1.55,0,0-0,0+0,0,1，

%U 63,7,3,2,0,1,0,0,0，0,0,1100,0,,0,0-0,00,0_0,0,1

%N按行读取三角形，A054525*A168021。

%C行总和=A000041开始（1、2、3、5、7、11、15…）。

%C T（n，k）是将n划分为GCD=k的部分的数量。-Alois P.Heinz_，2013年6月6日

%H Alois P.Heinz，<a href=“/A168532/b168532.txt”>行数n=1..141，扁平</a>

%三角形A168021的F Mobius变换=每列中包含充气变量A000837的无限下三角矩阵；其中A000837=分区数的Mobius变换，A000041。

%e三角形的前几行：

%e 1；

%e 1，1；

%e 2，0，1；

%e 3、1、0、1；

%e 6，0，0，0，1；

%e 7、2、1、0、0、1；

%e 14，0，0，0,0，0,1；

%e 17,3,0,1,0,0,0，1；

%e第27、0、2、0、0、O、0、1条；

%e第34、6、0、0、1、0、0,0、0,1页；

%e 55,0,0,0，0,0,1；

%e 63、7、3、2、0、1、0、0、0、0、0、1；

%e 100,0,0,0，0,00,0,1；

%e 119，14，0，0，0,0，0；

%e 167、0、6、0、2、0、0、零、0、；

%e 209、17、0、3、0、0、0,1、0,0,0,1；

%e 296，0，0，0,0，0；

%e。。。

%p b:=proc（n，i）选项记忆`如果`（n=0，1，`如果`（i=1，x，

%p b（n，i-1）+（p->加（系数（p，x，t）*x^igcd（t，i），

%p t=0..度（p））（添加（b（n-i*j，i-1），j=1..n/i））

%p端：

%pT:=n->（p->seq（系数（p，x，i），i=1..n））（b（n$2））：

%p序列（T（n），n=1..17）；#_阿洛伊斯·海因茨（Alois P.Heinz），2015年3月29日

%tb[n_，i_]：=b[n，i]=如果[n==0，1，如果[i==1，x，b[n、i-1]+函数[{p}，总和[系数[p，x，t]*x^GCD[t，i]，{t，0，指数[p，x]}]][总和[b[n-i*j，i-1]，{j，1，n/i}]]]；T[n_]：=函数[｛p｝，表[系数[p，x，i]，｛i，1，n｝]][b[n，n]]；表[T[n]，{n，1，17}]//扁平（*_Jean-François Alcover_，2016年1月8日，在_Alois P.Heinz_*之后）

%Y参考A168021，A000837。

%Y参见A256067（LCM相同）。

%K nonn，表

%O 1,4型

%A _加里·W·亚当森，2009年11月28日

%E由_Alois P.Heinz修订和扩展，2013年6月6日