%I#63 2022年4月9日14:05:13
%S 0,1,1,2,1,1,1,1,1,1,3,2,1,1,1,1,2,1,1,1,1,4,1,1,1,2,1,2,1,1,2,1,1,
%T 2,1,1,3,2,1,1,1,1,1,1,1,5,1,1,1,1,1,1,1,2,1,1,11,1,1,3,1,1,11,1,2,1,
%U 2,1,1,1,1,4,1,2,1,2,1,1,2,1,2,2,1,1,3,1,3,1,1,1,1,1,1,1,1,1,2,1,1,1,2,6,1,1,1,11,1,1,2,1,1,1,3,2,1
%第一行为0的N三角形,第N行(N>1)列出N的素因式分解中不同素因子(“有序素签名”)的指数。
%C A001222(n)=总和(T(n,k),1<=k<=A001221(n));A005361(n)=乘积(T(n,k),1<=k<=A001221(n)),n>1;A051903(n)=最大值(T(n,k):1<=k<=A001221(n));A051904(n)=最小值(T(n,k),1<=k<=A001221(n));A067029(n)=T(n,1);A071178(n)=T(n,A001221(n));A064372(n)=总和(A064371(T(n,k)),1<=k<=A001221(n))_Reinhard Zumkeller,2011年8月27日
%任何有限的自然数序列都显示为连续项_Paul Tek,2013年4月27日
%C对于n>1:第n行=A067255的第n行,不带零_Reinhard Zumkeller,2013年6月11日
%C大多数情况下,素数签名是作为非零指数的多个集合的排序代表给出的,要么按递增顺序,得出A118914,要么最常见的按递减顺序,得出A212171_M.F.Hasler,2018年10月12日
%H Reinhard Zumkeller,<a href=“/A24010/b124010.txt”>第n行,三角形,扁平</a>
%H<a href=“/index/Eu#epf”>根据n的因式分解中的指数计算序列的索引项</a>
%F n=产品_ k A027748(n,k)^a(n,k)。
%e指数的初始值为:
%e 1,[0]
%e 2,[1]
%e 3,[1]
%e 4,[2]
%e 5,[1]
%e 6,[1,1]
%e 7,[1]
%e 8,[3]
%e 9,[2]
%e 10,[1,1]
%e 11,[1]
%e 12,[2,1]
%e 13,[1]
%e 14,[1,1]
%e 15,[1,1]
%e 16,[4]
%e 17,[1]
%e 18,[1,2]
%e 19,[1]
%e 20,[2,1]
%e。。。
%p导出:=proc(n)局部t1,t2,t3,t4,i;如果n=1,则返回([0]);fi;如果是素数(n),则返回([1]);fi;t1:=系数(n);如果nops(因子集(n))=1,则返回([op(2,t1)]);fi;t2:=nops(t1);t3:=[];对于i从1到t2,做t4:=op(i,t1);如果nops(t4)=1,则t3:=[op(t3),1];否则t3:=[op(t3),op(2,t4)];fi;od;返回(t3);结束;#_N.J.A.Sloane,2007年12月20日
%t行[1]={0};行[n_]:=FactorInteger[n][[All,2]]//展平;表[第[n]行,{n,1,80}]//扁平(*_Jean-François Alcover_,2013年8月19日*)
%o(哈斯克尔)
%o a124010 n k=a12410_tabf!!(n-1)!!(k-1)
%o a124010_当前1=[0]
%o a124010_row n=f n a000040_list,其中
%o f 1=[]
%o f u(p:ps)=h u 0,其中
%o h v e | m==0=h v'(e+1)
%o | m/=0=如果e>0,则e:f v ps,否则f v ps
%o其中(v',m)=divMod v p
%o a12410_tabf=映射a12410_row[1..]
%o--_Reinhard Zumkeller,2013年6月12日,2011年8月27日
%o(PARI)打印1(0);对于(n=2,50,f=系数(n)[,2]);for(i=1,#f,print1(“,”f[i]))\\_Charles R Greathouse IV_,2014年11月7日
%o(PARI)A124010_row(n)=如果(n,系数(n)[,2]~,[0])\\_M.F.Hasler_,2018年10月12日
%o(Python)
%o来自sympy进口保理商
%o定义a(n):
%o f=因子(n)
%o如果n==1,则返回[0],否则[f[i]表示f中的i
%o表示范围(1,21)内的n:打印(a(n))#_Indranil Ghosh,2017年5月16日
%Y参见A027748、A001221(行长度,n>1)、A001225(行总和)、A027746、A020639、A064372、A067029(第一列)。
%Y排序行:A118914、A212171。
%K easy、nonn、tabf
%O 1,4型
%A _弗兰克林·T·亚当斯-沃特斯,2006年11月1日
%E Name编辑人:M.F.Hasler_,2022年4月8日
|