%I#41 2017年3月14日00:25:13
%S 1,2,1,3,0,1,2,0,1,5,0,0,1,1,3,2,0,0,1,7,0,0，0,01,2,2,0,0，
%温度0,1,3,0,0,0-0,0,1,1,5,0,2,0,00,01,0,1,11,0,0:0,0,0，0,0+0,1,1，
%U 2,3,0,2,0,0,0,0,13,0,0,0,0,0,0,0,0,0,0,1,7,0,0,0,2,0,0,0,0,0,0,0,0,1
%N列读取的三角形：k列是A014963，用（k-1）个零组充气。
%C如果行数n是素数，则该行由T（n，1）=n后跟n-2个零和T（n、n）=1组成。
%C类似于A138618。
%C第n行中非零项的行积，等于n.-Mats Granvik_，2016年5月22日
%H T.Tao，<a href=“http://terrytao.wordpress.com/2007/04/05/simons-体系结构-i-structure-and-randomness-in-furier-analysis-and-number-theory/“>Simons第一讲：傅里叶分析和数论中的结构和随机性。
%H维基百科，<a href=“http://en.wikipedia.org/wiki/Fundmental_theem_of_articulation（维基百科网）“>算术基本定理</a>。
%F T（n，k）=A014963（n/k）=AO14963（A126988（n，k）），如果k|n，T（n、k）=0，否则。1<=k<=n。
%F From _Mats Granvik，2016年4月10日，2016年5月22日：（开始）
%F限制为递归的s->1：Ts（n，k）=如果k=1，则zeta（s）*（1-1/n^（s-1））-求和{i=2..n}Ts（n，i）/（i）^（s-1）else如果n mod k=0，则Ts（n/k，1）else为0。
%F对于n不等于k：极限为s->1的递归：Ts（n，k）=如果k=1，则zeta（s）-和{i=2..n}Ts（n，i）/i^（s-1）else如果n mod k=0，则Ts（n/k，1）else0 else 0。
%F限制为递归的s->1：Ts（n，k）=如果k=1，则log（n）-Sum_{i=2..n}Ts（n，i）/i^（s-1）else如果n mod k=0，则Ts（n/k，1）else0 else 0。（结束）
%F[上述句子需要大量练习！括号可能会有所帮助。-N.J.a.Sloane_，2017年3月14日]
%e三角形的前几行是：
%e 1；
%e 2，1；
%e 3，0，1；
%e 2、2、0、1；
%e 5，0，0，0，1；
%e 1、3、2、0、0、1；
%e 7，0，0，0,0，0,1；
%e 2，2，0，2，0，0，0，1；
%e 3、0、3、0和0、0、0和1；
%e 1、5、0、0、2、0、0,0、0,1；
%e 11,0,0,0，0,0,1；
%e 1、1、2、3、0、2、0、0、O、0、1；
%e。。。
%e第2列=（1，0，2，0，3，0，0，2中，0，5，0，1，0,7，…）。
%t t[n，k]/；可分[n，k]：=Exp[MangoldtLambda[n/k]]；t[_，_]=0；表[t[n，k]，{n，1，14}，{k，1，n}]//Flatten（*Jean-François Alcover_，2013年11月28日*）
%t（*重复*）
%t清除[t，s，n，k，z，nn]；z=1；nn=14；t[n，k]：=t[n，k]=如果[k==1，Zeta[s]*（1-1/n^（s-1））-和[t[n，i]/i^（s-1），{i，2，n}]，如果[Mod[n，k]==0，t[n/k，1]，0]，0]；A=表格[限制[t[n，k]，s->z]，{k，1，n}]，{n，1，nn}]；扁平[Exp[A]*表[Table[If[Mod[n，k]==0，1，0]，{k，1，n}]，{n，1，nn}]]（*_Mats Granvik_，2016年4月9日，2016年5月22日*）
%o（Excel）=如果（行（）>=列（）；if（mod（row（）；column（））=0；查找（roundup（row（）/column（））；0);A000027；A014963）；0);"")
%Y参见A140255（行总和），A014963。
%没有零项的Y行产品产生A000027。【2009年10月8日，马斯·格兰维克】
%K nonn，表
%O 1,2号机组
%A _Gary W.Adamson_和_Mats Granvik，2008年5月16日，2008年6月11日
