搜索： 编号：a254317
|
| |
|
|
A254317号
|
| a（n）是使k的素因式分解中的不同位数为n的最小数k（将形式p^1的项计数为p）。 |
|
+0
2
|
| |
|
|
|
抵消
|
1,2
|
|
|
评论
|
把k写成素数幂的乘积；则a（n）是最小的数字k，使得k的乘积表示中的非重复数字总数（所有素数中的非循环数字数和所有指数中大于1的非循环数）等于n。按照惯例，第一项a（1）=1。序列已完成。
属性：所有指数都等于1（参见下面的示例）。
|
|
|
链接
|
|
|
|
例子
|
a（1）=1；
a（7）=22890=2*3*5*7*109和A254315型（22890）=7；
a（8）=153690=2*3*5*47*109和A254315型(153690) = 8;
a（9）=1507290=2*3*5*47*1069和A254315型(1507290) = 9;
a（10）=15618090=2*3*5*487*1069和A254315型(15618090) = 10.
|
|
|
MAPLE公司
|
使用（ListTools）：
对于从2到10的n，do：
ii:=0:
对于从2到10^9的k，当（ii=0）do时：
n0:=长度（k）：lst:={}:x0:=系数（k）
y： =展平（x0[2]）：z:=转换（y，set）：
z1:=z减去{1}:nn0:=nops（z1）：
对于从1到nn0的m，do：
t1:=转换（z1[m]，基数，10）：z2:=转换（t1，集合）：
lst:=lst联合z2：
日期：
nn1：=无（lst）：
如果nn1=n，则ii:=1:printf（“%d%d\n”，n，k）：
其他的
图1：
日期：
日期：
|
|
|
数学
|
f[n_]：=块[{pf=FactorInteger@n，i}，Length@DeleteDuplicates@Flatten@IntegerDigits@Rest@Flatten@Reap@Do[If[Last[pf[i]]]==1，Sow@First@pf[[i]]，Sow@FromDigits@Flatten[IntegerDigits/@pf[i]]，{i，Length@pf}]]；b=-1；压扁@Last@Reap@Do[a=f[n]；如果[a>b，母猪[n]；b=a]，{n，10^6}](*迈克尔·德弗利格2015年1月29日*）
使用[{s=Array[CountDistinct@Flatten@IntegerDigits[FactorInteger[#]/.{p_，e_}/；e==1:>{p}]&，10^6]}，映射[FirstPosition[s，#][[1]]&，Range@Max@s]](*迈克尔·德弗利格2017年11月3日*）
|
|
|
黄体脂酮素
|
（PARI）a（n）=对于（k=1，10^5，s=[]；F=系数（k）；对于（i=1，#F[，1]，s=concat（s，digits（F[i，1]））；如果（F[i，2]>1，s=concat（s，digits（F[i，2]））；如果（#vecsort（s，8）==n，返回（k））
打印1（1，“，”）；对于（n=2,7，打印1（a（n），“，”）\\德里克·奥尔，2015年1月30日
|
|
|
交叉参考
|
|
|
|
关键字
|
非n,基础,最终,满的
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
搜索在0.005秒内完成
|
