%I#24 2018年10月6日09:38:55

%S 1,1,1,1,0,3,1,1,0,6,1,0,15,0,0,1,3,0,2,7,1,00,0,0，0,6,0,1,1,6,0，

%温度0,0120,1,0,0,3,0,0，0,0,1,0252,1,1,0,15,0,0-0495,1,0.0,0,0.0,0.0，

%U 01023,1,1,3,6,0,27,0,0,,0,02010,1,0,0，0,0,1,0,10,00,0.0，0,04095,1,0.0,0,0-0,0.08127单位

%N行读取的三角形：A216953/2。

%H B.Chaffin、J.P.Linderman、N.J.A.Sloane和Allan Wilks，<A href=“http://arxiv.org/abs/1212.6102“>关于整数序列的卷曲数</a>，arXiv:12126.102[math.CO]，2012-2013。

%H B.Chaffin、J.P.Linderman、N.J.A.Sloane和Allan Wilks，<A href=“https://cs.uwaterloo.ca/journals/JIS/VOL16/Sloane/sloane3.html“>关于整数序列的卷曲数</a>，《整数序列杂志》，第16卷（2013年），第13.4.3条。

%e三角形开始：

%e 1；

%e 1，1；

%e 1、0、3；

%e 1，1，0，6；

%e 1，0，0，0，15；

%e 1、1、3、0、0、27；

%e 1、0、0、0,0、0和63；

%e 1、1、0、6、0、0、O、120；

%e 1、0、3、0、0、O、0、252；

%e 1、1、0、0、15、0、O、0、0,0、495；

%e。。。

%t a027375[n_]：=除数和[n，MoebiusMu[n/#]2^#&]；

%t t[n_，k_]：=如果[可除[n，k]，a027375[k]/2，0]；

%t表[t[n，k]，{n，1，14}，{k，1，n}]//Flatten（*Jean-François Alcover_，2018年10月6日*）

%Y参见A216953。主对角线为A000740。

%K nonn，表

%O 1,6型

%A _N.J.A.Sloane，2012年9月25日