%I#24 2022年9月8日08:44:52

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

%T 1,7,1,3,1,5,1,2,4,17,1,2,3,2,19,1,2,5,1,3,1,7,12,1,1,23,1,2，

%U 3,3,1,5,2,1,13,1,3,3,2,2,7,1,29,1,2,1,3,1,5A,1,31,1,2,5,3,11,1,2

%N按顺序列出每个数字的素因子（每个素因子后面跟它的幂）。从1={1,1}开始。

%C此条目还用于显示如何使用各种语言计算数字。

%C备注：在Maple中，使用ifactor，而不是ifactor！

%C第n行长度=2*A001221（n）。-_Reinhard Zumkeller_，2013年1月10日

%H Reinhard Zumkeller，<a href=“/A035306/b035306.txt”>三角形的行数n=1..1000，扁平</a>

%F对于1<=k<=A001221（n）：T（n，2*k-1）=A027748（n，k），T（n、2*k）=A124010（n，k）_Reinhard Zumkeller_，2013年1月10日

%e1={1,1}，2={2,1}。。。

%p ListTools[展平]（[[1，1]]，seq（op（2..-1，ifactors（n）），n=2..34）]，2）；#_Peter Luschny_，2018年9月2日

%t压扁[Array[FactorInteger[#]&，40]]

%o（哈斯克尔）

%o导入数据。列表（转置）

%o a035306 n k=a035306_行n！！（k-1）

%o a035306_低1=[1,1]

%o a035306行n=concat$转置[a027748行n，a124010行n]

%o a035306_tabf=映射a035306行[1..]

%o——Reinhard Zumkeller，2013年1月10日

%o（岩浆）[因子分解（n）：[1..120]]中的n；

%o（PARI）表示（n=2256，打印（系数（n）））[必须有一个更好的PARI代码]

%o（PARI）小于等于（n）={n=最大（n，1）；my（res=列表（[1,1]））；对于（i=2，n，f=因子（i）；对于

%Y参考A008474（除首行外的行总和）。

%Y参见A001221、A001222、A027748、A124010。

%K nonn，标签

%O 1,3

%A.N.J.A.斯隆。