%I#39 2023年8月27日08:43:16

%S 0,1,0,1,2,0,0,1,1,0,0,0，1,3,0,2,1,0,1,0，0,00,01,0,1,1，

%温度0,0,1,0,1,1,4,0,0,0、0,00,0，0,1,2,0,0_0,0,0.0,1,1,0,1,0，

%U 0,1,0,0,0，0,0,1,0，0，0,1,3,1,0,1,1,0_0,0,2,0,0',0,1

%行读取的不规则三角形：行N给出N的素因式分解的指数。

%C行长度由A061395（n）给出，n>=2:[1，2，1，3，2，4，1，2，…]。

%这个序列包含每个非负整数的有限序列_富兰克林·亚当斯·沃特斯，2005年6月22日

%H Reinhard Zumkeller，<a href=“/A0672255/b067255.txt”>行n=1.250的三角形，扁平</a>

%H Jeppe Stig Nielsen，<a href=“http://jeppesn.dk/prim-eksp.text“>请参阅此说明</a>

%e 1=2^0

%e 2=2 ^1

%e 3=2^0 3^1

%e 4=2^2

%e 5=2^0 3^0 5^1

%e 6=2^1 3^1

%e。。。读取指数给出序列。

%e因为例如99=2^0*3^2*5^0*7^0*11^1，所以我们用这个符号表示九十九：99:{0,2,0,0,1}。串联1、2、3、4、5、6…的所有符号，。。。，我们得到了序列。

%t f[n_]：=如果[n==1，{0}，函数[f，ReplacePart[Table[0，{PrimePi[f[[-1，1]]}]，#]&@Map[PrimePi@First@#->Last@#&，f]]@FactorInteger@n]；阵列[f，29]//扁平（*Michael De Vlieger_，2019年3月8日*）

%o（哈斯克尔）

%o a067255 n k=a067255_tabf！！（n-1）！！（k-1）

%o a067255_行1=[0]

%o a067255_row n=f n a000040_list，其中

%o f 1=[]

%o f u（p:ps）=g u 0，其中

%o g v e=如果m==0，则g v'（e+1），否则e：f v ps

%o其中（v'，m）=divMod v p

%o a067255_tabf=地图a067255_row[1..]

%o——Reinhard Zumkeller，2013年6月11日

%Y参考A133457。

%Y参考A001222（行和），A061395（行长度n>=2）。

%Y参考A007814（左边缘），A071178（右边缘）。

%Y参考A082786（与正三角形相同）。

%Y其他三角形版本见A060175、A143078。

%Y参考A054841，颠倒行并连接成十进制数。

%K easy、nonn、tabf

%O 1,5型

%Jeppe Stig Nielsen，2002年2月20日