登录
OEIS由支持OEIS基金会的许多慷慨捐助者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A124010型 第一行为0的三角形,第n行(n>1)列出n的素因式分解中不同素因子(“有序素签名”)的指数。 451

%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日

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间:美国东部夏令时2024年6月25日10:28。包含373701个序列。(在oeis4上运行。)