A138180-OEIS公司

A138180型

行读取的不规则三角形：行n由所有数字x组成，因此x和x+1没有大于质数（n）的素因子。

1, 1, 2, 3, 8, 1, 2, 3, 4, 5, 8, 9, 15, 24, 80, 1, 2, 3, 4, 5, 6, 7, 8, 9, 14, 15, 20, 24, 27, 35, 48, 49, 63, 80, 125, 224, 2400, 4374, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 14, 15, 20, 21, 24, 27, 32, 35, 44, 48, 49, 54, 55, 63, 80, 98, 99, 120, 125, 175, 224, 242, 384, 440, 539 (列表;图表;参考;听;历史;文本;内部格式)

	抵消	`1,3`
	评论	`如果x的所有素因子都小于等于p，则数字x是p-光滑的。行n的长度为A002071号（n） ●●●●。第n行以1开头，以A002072号（n） ●●●●。第n-1行的每个项都在第n行。` `第n行是的第1行到第n行的并集A145605号. -M.F.哈斯勒2015年1月18日`
	参考文献	`请参见A002071号.`
	链接	`T.D.Noe，行n=三角形的1..10，展平`
	例子	`表中显示：` `1,` `1, 2, 3, 8,` `1, 2, 3, 4, 5, 8, 9, 15, 24, 80, (=A085152号)` `1, 2, 3, 4, 5, 6, 7, 8, 9, 14, 15, 20, 24, 27, 35, 48, 49, 63, 80, 125, 224, 2400, 4374, (=A085153号)` `1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 14, 15, 20, 21, 24, 27, 32, 35, 44, 48, 49, 54, 55, 63, 80, 98, 99, 120, 125, 175, 224, 242, 384, 440, 539, 2400, 3024, 4374, 9800 (=A252494型),` `...`
	数学	（此程序需要x maxima取自A002072号.）x最大值=A002072号; 平滑数[p_，max_]：=模块[{a，aa，k，pp，iter}，k=PrimePi[p]；aa=数组[a，k]；pp=素数[范围[k]]；iter=表[{a[j]，0，PowerExpand@Log[pp[j]]，max/Times@@（取[pp，j-1]^取[aa，j-1）]}，{j，1，k}]；表[Times@@（pp^aa），Sequence@@iter/Evaluate]//Flatten//Sort]；row[n_]：=模[{sn}，sn=smoothNumbers[Prime[n]，xMaxima[[n]]+1]；收割[Do[If[sn[[i]]+1==sn[[i+1]]，播种[sn[[i]]]，{i，1，长度[sn]-1}]][[2，1]]]；表格[打印[n]；行[n]，{n，1，10}]//展平(Jean-François Alcover公司，2015年1月16日，2016年11月10日更新）
	黄体脂酮素	`（PARI）A138180型_行=[]；A138180型（n，k）={如果（k，A138180型（n）【k】#A138180型_行<n&&A138180型_行=concat(A138180型_行，向量（n））；如果(#A138180型_行[n]，138180英镑_行[n]，k=0；p=素数（n）；A138180型_行[n]=向量(A002071号（n），i，直到（vecmax（因子（k++）[，1]）<=p&vecmax（因子（k--+（k<2））[，2]）<=p，k++）；k））}\\138180英镑（n）（不带第二个参数k）返回整行-M.F.哈斯勒2015年1月16日`
	交叉参考	`囊性纤维变性。145605英镑;A085152号,A085153号,A252494型,A252493型,A252492型.` `上下文中的序列：A131959号 A202688型 A021046号A345093 A079585号 A354854型` `相邻序列：A138177号 A138178号 A138179号A138181号 A138182号 A138183号`
	关键词	`非n,标签`
	作者	`T.D.诺伊2008年3月4日`
	状态	`经核准的`