%I#8 2020年1月30日06:40:59
%S 1,4,7,8,10,14,19,21,24,28,29,30,34,35,36,38,39,41,42,43,45,46,50,51,
%电话:53,54,58,59,63,67,68,72,78,82,88,99110113115120122125127,
%电话:133135138140146148154160162168175176177183190191192
%N在3个光滑数字之间出现记录差距的地方。
%H Amiram Eldar,n的表,a(n)表示n=1..10000</a>
%H Eric Weisstein的数学世界,<a href=“http://mathworld.wolfram.com/SmoothNumber.html“>平滑数</a>
%F A084788(n)=A061987(a(n))。
%F A084789(n)=A003586(a(n))。
%F A084790(n)=A003586(a(n)+1)。
%t s={};m=13;Do[n=3^k;While[n<=3^m,AppendTo[s,n];n*=2],{k,0,m}];s=联合[s];d=天差异@s; v=DeleteDuplicates@FoldList[Max,d];地图[First@位置[d,#]&,v]//Flatten(*_Amiram Eldar_,2020年1月30日*)
%Y参考A003586、A084788、A084799和A084790。
%K nonn公司
%O 1,2号机组
%A _Reinhard Zumkeller,2003年6月3日
|