%I#53 2020年4月30日13:37:26

%S 1,2,3,2,5,2,3,7,2,2,5,11,2,3,13,2,7,3,5,2,17,2,3,19,2,5,3,7,11，

%电话23,2,3,5,2,13,3,2,7,29,2,35,31,2,3,12,7,5,7,2,33,37,2,19,3,13,2,5，

%U 41,2,3,7,43,2,11,3,5,2,23,47,2,3，7,2,5,3,17,2,13,53,2,3,11,2,7,3,19,2,29,2,35,61,21

%第一行为1的不规则三角形，第N行（N>1）列出N的不同素因子。

%C对于n>1，第n行中的项数为A001221（n）。

%C来自Reinhard Zumkeller_2011年8月27日：（开始）

%C A008472（n）=和{k=1..A001221（n）}T（n，k），n>1；

%C A007947（n）=产品{k=1..A001221（n）}T（n，k）；

%C A006530（n）=最大值{k=1..A001221（n）}T（n，k）。

%C A020639（n）=最小值{k=1..A001221（n）}T（n，k）。

%C（结束）

%C列出n.-Michel Marcus除数的A027750子序列，2015年10月17日

%H T.D.Noe，<a href=“/A027748/b027748.txt”>三角形的行n=1..2048，扁平</a>

%H Eric Weisstein的数学世界，<a href=“http://mathworld.wolfram.com/DistinctPrimeFactors.html“>不同的主要因素。

%e三角形开始：

%e 1；

%e 2；

%e 3；

%e 2；

%e 5；

%e 2、3；

%e 7；

%e 2；

%e 3；

%e 2、5；

%e 11；

%e 2、3；

%e 13；

%e 2、7；

%e。。。

%p with（numtheory）：[seq（factorset（n），n=1..100）]；

%t展平[表[FactorInteger[n][[All，1]]，{n，1，62}]]（*_Jean-François Alcover_，2011年10月10日*）

%o（哈斯克尔）

%o导入数据。列表（展开器）

%o a027748 n k=a027748_tabl！！（n-1）！！（k-1）

%o a027748_tabl=映射a027748行[1..]

%o a027748_低1=[1]

%o a027748_row n=展开器事实n，其中

%o事实1=无

%o事实x=只是（p，直到（>0）。（`mod`p））（`div`p）x）

%o其中p=a020639 x——x的最小素因子

%o--_Reinhard Zumkeller，2011年8月27日

%o（PARI）打印1（1）；对于（n=2,20，f=系数（n）[，1]；（i=1，#f，print1（“，”f[i]））\\_Charles R Greathouse IV_，2013年3月20日

%o（Python）

%o来自sympy导入因子

%o表示范围（2101）内的n：

%o print（[i for i in primefactors（n）]）#_Indranil Ghosh，2017年3月31日

%Y参考A000027、A001221、A001225（带重复）、A027746、A141809、A141810。

%Y a（A013939（A000040（n））+1）=A000040。

%Y参考A020639、A027750。

%Y A284411给出了柱中位数。

%K nonn，简单，tabf，好

%O 1,2号机组

%A _N.J.A.斯隆_

%E更多来自Scott Lindhurst（ScottL（AT）校友.princeton.edu）的词汇