编辑
经核准的
DeleteDuplicates[Differences[Select[Range[10^6],Max[FactorInteger[#][[All,1]]<5&]],GreaterEqual](*哈维·P·戴尔,2022年11月22日*)
检验过的
提出
a(n)=A084790号(n)-A084789号(n) ;a(n)=A061987号(A084791号(n) )。
a(n)=A084790号(n)-A084789号(n) ●●●●。
a(n)=A061987号(A084791号(n) )。
s={};m=13;Do[n=3^k;While[n<=3^m,AppendTo[s,n];执行[n<=3^m,追加到[s,n];n*=2],{k,0,m}];DeleteDuplicates@FoldList[Max,Differences@Union[s]](*阿米拉姆·埃尔达尔,2020年1月30日*)
囊性纤维变性。A003586号,A061987号,A084789号,A084790号,A084791号.
Amiram Eldar,<a href=“/A084788号/b084788.txt“>n表,n=1..10000时a(n)</a>
_莱因哈德·祖姆凯勒(莱因哈德.祖姆凯勒(自动变速箱)gmail公司.通用域名格式),_,2003年6月3日
OEIS服务器: https://oeis.org/edit/global/246
非n,新的
非n
Reinhard Zumkeller(雷因哈德·祖姆凯勒(AT)lh系统gmail公司.com),2003年6月3日
3个平滑数之间连续增加的间隙的大小。
1, 2, 3, 4, 6, 12, 15, 20, 30, 32, 36, 60, 64, 72, 81, 96, 108, 128, 144, 162, 192, 216, 288, 324, 384, 432, 576, 648, 864, 1152, 1296, 1728, 2592, 3456, 5184, 10368, 11259, 13344, 15012, 17792, 20016, 22518, 26688, 30024, 40032, 45036, 53376
1,2
Eric Weisstein的《数学世界》,<a href=“http://mathworld.wolfram.com/SmoothNumber.html“>平滑数</a>
囊性纤维变性。A003586号.
Reinhard Zumkeller(Reinhard.jumkeller-(AT)lhsystems.com),2003年6月3日