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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A186927号 没有公约数的两个连续3光滑数中的较小者。 4
1, 2, 3, 8, 27, 243, 2048, 524288, 129140163, 68630377364883, 36472996377170786403, 19342813113834066795298816, 706965049015104706497203195837614914543357369, 13703277223523221219433362313025801636536040755174924956117940937101787 (列表图表参考历史文本内部格式)
抵消
1,2
评论
a(n)=A003586号(A186771号(n) );A186928号(n)=A003586号(A186771号(n) +1)。
的后续A006899号:所有术语要么是2的幂,要么是3的幂。
Najman改进了Bauer&Bennett的一个算法,该算法用于计算在至少一个素因子超过k的整数序列中测量最小间隙大小f(k)的函数。这允许我们计算较大k的f(k-乔纳森·沃斯邮报2011年8月18日
链接
查尔斯·格里塔斯四世,n=1..21时的n,a(n)表
M.Bauer和M.A.Bennett,连续整数的素因子《计算数学》77(2008),第2455-2459页。
查尔斯·格里塔斯四世,n=1..33时n,a(n)的图解
菲利普·纳杰曼,连续光滑整数的大字符串2011年8月18日
数学
平滑数[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];sn=平滑数[3,10^100];收获[For[i=1,i<=长度[sn]-1,i++,If[CoprimQ[sn[i]],sn[[i+1]]],Sow[sn[[i]]]][[2,1]](*Jean-François Alcover公司2016年11月11日*)
交叉参考
囊性纤维变性。A186711号.
关键词
非n
作者
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年4月19日21:09。包含371798个序列。(在oeis4上运行。)