%I#17 2021年12月12日20:11:33

%S 4,6,8,12,16,18,20,24,27,30,32,36,40,42,45,48,50,52,54,56,60,64,66,68，

%电话：70,72,75,77,81,84,88,90,96,98100102105108110112114117120，

%电话：125128130132135138140144147150154156160162165168175180

%N编号N，其中A006530具有局部最小值。

%2的C次幂和较大素数的最大次幂属于这里。

%H T.D.Noe，n的表格，n=1..1000时的a（n）</a>

%F a（n）=A082418（n）+1.-_T.D.Noe_，2007年11月26日

%e设gpf（n）=A006530（n）。18位于序列中，因为gpf（17）=17>gpf（18）=3<gpf（19）=19。

%t mxp[x_]：=最大值[FactorInteger[x][[All，1]]]；ta={{0}}；做[s1=mxp[n-1]；s=mxp[n]；s2=mxp[n+1]；如果[Greater[s1，s]&&Greater[2，s]]，则打印[{n，{s1，s，s2}}]；ta=附加[ta，n]]，{n，1，512}]；ta=删除[ta，1]（*原始程序由_Michael De Vlieger_编辑，2017年3月26日*）

%t使用[{n=181}，选择[MapIndexed[{First@#2+1，Differences@#1}&，Partition[Array[FactorInteger[#][[-1，1]&，n]，3，1]]，Apply[And[#1<0，#2>0]&，Last@#]&][[All，1]]]（*Michael De Vlieger_，2017年3月26日*）

%Y参考A006530。

%K nonn公司

%O 1,1号机组

%A _Labos Elemer，2004年12月14日