%I#7 2020年1月30日06:41:19
%S 1,4,9,12,18,36,81108162256288324151257664886410241152,
%电话:129615361728230425923072345646085184691292161036813824,
%电话:20736276484147282944165888196608221184262144294912331776
%N增加3个平滑数字之间的间隙(下端)。
%H Amiram Eldar,<a href=“/A084789/b084789.txt”>n,a(n)表,n=1.-10000</a>
%F a(n)=A084790(n)-A084788(n)。
%F a(n)=A003586(A084791(n))。
%t s={};m=13;Do[n=3^k;While[n<=3^m,AppendTo[s,n];n*=2],{k,0,m}];s=联合[s];d=差异@秒;v=DeleteDuplicates@FoldList[Max,d];地图[s[[First@位置[d,#]]]&,v]//Flatten(*_Amiram Eldar_,2020年1月30日*)
%Y参见A003586、A061987、A084788、A084790、A08479。
%K nonn公司
%O 1,2号机组
%A _Reinhard Zumkeller,2003年6月3日
|