登录
A027746号
第一行是1的不规则三角形,第n行(n>1)给出n的素数因子,并重复。
300
1, 2, 3, 2, 2, 5, 2, 3, 7, 2, 2, 2, 3, 3, 2, 5, 11, 2, 2, 3, 13, 2, 7, 3, 5, 2, 2, 2, 2, 17, 2, 3, 3, 19, 2, 2, 5, 3, 7, 2, 11, 23, 2, 2, 2, 3, 5, 5, 2, 13, 3, 3, 3, 2, 2, 7, 29, 2, 3, 5, 31, 2, 2, 2, 2, 2, 3, 11, 2, 17, 5, 7, 2, 2, 3, 3, 37, 2, 19, 3, 13, 2, 2, 2, 5, 41, 2, 3, 7, 43, 2, 2, 11, 3, 3, 5
抵消
1,2
评论
第n行具有长度A001222号(n) (n>1)。
链接
S.von Worley(?),动画分解图,2012年10月。
布伦特·尤吉,因子分解图《数学少旅行》,2012年10月5日。
配方奶粉
产品{k=1。。A001222号(n) }T(n,k)=n。
发件人莱因哈德·祖姆凯勒,2011年8月27日:(开始)
A001414号(n) =总和{k=1。。A001222号(n) }T(n,k),n>1;
A006530号(n) =T(n,A001222号(n) )=最大值{k=1。。A001222号(n) }T(n,k);
A020639号(n) =T(n,1)=最小值{k=1。。A001222号(n) }T(n,k)。(结束)
例子
三角形开始
1;
2;
三;
2, 2;
5;
2, 3;
7;
2, 2, 2;
3, 3;
2, 5;
11;
2, 2, 3;
...
枫木
P: =proc(n)local FM:FM:=ifactors(n)[2]:seq(seq(FM[j][1],k=1..FM[j][2]),j=1..nops(FM))end:1;n从2到45 do P(n)od;#生成三角形形式的序列;Emeric Deutsch公司2005年2月13日
数学
行[n_]:=展平[表[#[[1]],{#[2]}]&/@FactorInteger[n]];压扁[表格[行[n],{n,1,45}]](*Jean-François Alcover公司2011年12月1日*)
黄体脂酮素
(哈斯克尔)
导入数据。列表(展开器)
a027746 n k=a027746_tabl!!(n-1)!!(k-1)
a027746_tabl=映射a027746行[1..]
a027746_行1=[1]
a027746_row n=展开事实n,其中
事实1=无
事实x=Just(p,x`div`p),其中p=a020639 x
--莱因哈德·祖姆凯勒2011年8月27日
(PARI)A027746号_row(n,o=[1])=if(n>1,concat(apply(t->vector(t[2],i,t[1]),Vec(factor(n)~)),o)\\如果您希望第一行使用更自然的[],请使用%(n,[])。 -M.F.哈斯勒2015年7月29日
(鼠尾草)v=[1]
对于[2..45]中的k:v.extend(对于范围(m)中的_,系数(k)中的(p,m)为p)
打印(v)#朱塞佩·科波列塔2017年12月29日
(Python)
定义因子(n:int)->列表[int]:
p=n
五十: 列表[int]=[]
对于范围(2,p+1)中的f:
如果f*f>p:中断
为True时:
q、 r=divmod(p,f)
如果r!=0:中断
L.附录(f)
p=q
如果p==1:返回L
L.附录(p)
返回L#彼得·卢什尼2024年7月18日
交叉参考
囊性纤维变性。A000027号,A001222号,A027748号.
一个(A022559号(A000040型(n) )+1)=A000040型(n) 。
第1列是A020639号,第2列和第3列对应A014673号A115561号.
A281890型测量每列中每个素数的频率A281889型给出中值。
囊性纤维变性。A175943号(部分产品),A265110型(部分行产品),A265111型.
关键词
非n,容易的,美好的,标签,改变
扩展
更多术语来自詹姆斯·塞勒斯
状态
经核准的