登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A225903型 以n开头的最小数,其不同素数因子是前n个素数。 2
16, 24, 30, 420, 50820, 60060, 7147140, 87297210, 9369900540, 103515091680, 11030826957150, 126152548291770, 13387011595197240, 143910374648370330, 15372244564712285250, 162945792385950223650, 17304843151387913751630, 1876614101750511535732320 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,1
评论
a(3)=30是唯一一个上标都是1的小于1000位数字的术语。
尽管反例是可能的,但序列似乎严格地在增加(在n<350时得到证实,此后反例在统计上越来越不可能出现)。
链接
克里斯蒂安·安德森,n=1时的n,a(n)表。.349
例子
对于a(6),数字60060=2^2*3*5*7*11*13。因子包含前6个素数的唯一较小的数字是30030,它不是以6开头的。
数学
a[n_]:=块[{p=素数[n],ba=乘积[底漆@k,{k,n}],d=整数位数@n,mu=1},而[d!=取[IntegerDigits[mu*ba],长度@d]|Max[First/@FactorInteger[mu]]>p,mu++];mu*ba];数组[a,20](*乔瓦尼·雷斯塔2013年5月27日*)
黄体脂酮素
(右)
图书馆(gmp);素数<-函数(n){x=as.bigz(rep(2,n));对于(iin2:n)x[i]=下一素数(x[i-1]);as.vector(x[1:n])}
newmin<-function(b,d){if(d>length(b))return();
while(1){b[d]=b[d]+1;if((x=prod(pr^b))>v)return()
if(substr(x,1,ndig(i))==作为字符(i)
如果(b[d]==2){b[d]=1;新最小值(b,d+1);b[d=2}
新最小值(b,d+1)
}
}
y=as.bigz(代表(0,50))
(i以1:50表示){
pr=素数(i);b=代表(1,i)
while(substr((v=prod(pr^b)),1,ndig(i))=作为字符(i))b[1]=b[1]+1;
而(b[1]>1){b[1]=b[1]-1;newmin(b,2)}
如果(y[i]>v)y[i]=v;
}
交叉参考
囊性纤维变性。A000040型,A002110号.
囊性纤维变性。A086558号,A109864号,A088104型
囊性纤维变性。A018802号,A077515号,A077727号
关键词
非n,基础
作者
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年3月28日18:04。包含371254个序列。(在oeis4上运行。)