A191743-OEIS公司

A191743号

除数序列中具有给定因子分解模式的最小数。

1, 2, 4, 6, 8, 12, 16, 18, 20, 24, 30, 32, 36, 40, 42, 48, 54, 60, 64, 72, 80, 84, 88, 90, 96, 100, 108, 120, 126, 128, 140, 144, 150, 156, 160, 162, 168, 176, 180, 192, 198, 200, 210, 216, 220, 240, 252, 256, 264, 270, 272, 280, 288, 294, 300, 312, 315, 320, 324, 330 (列表;图表;参考文献;听;历史;文本;内部格式)

	抵消	`1,2`
	评论	`为了得到n的除数的因子分解模式，取n的除数列表，并使用p，q，r，…对每个除数进行因子分解，。。。按顺序表示n的素因子。例如，当将14分解为84的除数时，84的素数除数是p=2，q=3，r=7，所以14=>p*r。`
	链接	`乔瓦尼·雷斯塔，n=1..10000时的n，a（n）表`
	例子	`任何素数p的因子都是1，p，所以这是所有素数的因式分解模式。因此，第一个素数2位于序列中，其他素数都不在序列中。半素数有模式1，p，p^2或模式1，p，q，pq，所以这个序列中的半素数分别是4和6。` `对于素数和不同素数平方的乘积(A054753号)，有三种可能的模式：1，p，q，p^2，pq，p2q，1，p；序列中的样本分别为12、18和20。`
	数学	`f[n_]：=如果[n==1，1，块[{p=First/@因子整数@n，z}，z=表[p[i]]->x[i]，{i，长度@p}]; 倍数@@（（（#[[1]]/.z）^#[[2]]）&/@FactorInteger[#]）//@Divisors[n]]]；A=<\|\|>；L={}；Do[k=f[n]；如果[！KeyExistsQ[A，k]，AppendTo[L，n]；A[k]=1]，{n，330}]；L（左）(乔瓦尼·雷斯塔2017年7月20日）`
	黄体脂酮素	`（PARI）` `vecfnd（v，x）={对于（k=1，#v，if（v[k]==x，return（k）））；返回（0）；}` `vecfndn（v，x，n）={对于（k=1，n，if（v[k]==x，return（k）））；返回（0）；}` `factfmt（k，ps）=` `{` `本地（r，fm）；r=“”；fm=系数（k）；` `对于（i=1，matsize（fm）[1]，` `如果（i>1，r=Str（r“”））；` `r=Str（r，vecfnd（ps，fm[i，1]））；` `如果（fm[i，2]>1，r=Str（r“^”fm[i，2]））` `);` `收益（r）；` `}/结束factfmt（）/` `事实（n）=` `{` `局部（ps、ds、r）；r=“”；ps=因子（n）[，1]~；ds=除数（n）；` `对于（k=1，#ds，如果（k>1，r=Str（r“，”））；r=连接（r，factfmt（ds[k]，ps））；` `收益（r）；` `}/结束factpatt（）/` `铝（n）=` `{` `局部（k，r，st，m，pt）；k=1；r=矢量（n）；st=矢量（n）；` `而（m<n，pt=factpatt（k））；如果（！vecfndn（st，pt，m），m++；r[m]=k；st[m]=pt）；k++）；` `收益（r）；` `}/结束al（）/` `al（66）/显示前66个术语*/`
	交叉参考	`A025487号和A055932号是子序列。` `上下文中的序列：A359420型 A325781型 A231565型A308115型 A331828型 A258118型` `相邻序列：A191740号 A191741号 A191742号A191744号 A191745号 A191746号`
	关键字	`非n`
	作者	`富兰克林·T·亚当斯-沃特斯2011年6月13日`
	状态	`经核准的`