%I#54 2020年1月12日12:47:47

%S 1,2,1,4,1,3,1,8,1,2,1,6,1,2,1,16,1,31,4,12,1,12,1,4,1,5,1,32,1，

%温度2,1,9,1,2,1,8,1,3,1,4,1,2,14,1,4,1,3,1,8,1,2,10,1,2,64,1,3，

%U 1,4,1,2,1,1,18,1,2,1,4,1,3,16,1,2,6,1,2,1,8,1,5,1,4,12,1,4,1,1,3,8,1

%N N的初等收缩：从x=N开始，反复将x除以除以它的最大初等函数A002110（k），直到x是奇数。则a（n）=积素数（k_i），对于素数指数k_1>=k_2>=。。。，在过程中遇到。

%C当应用于任意n时，“原始通缩”（Matthew Vandermast在A181815中创造的术语）将n分解为两个因子A328478（n）*A328479（n。只有当n在A025487中时，整个n才是可放气的，即A328478（n）=1和A328479（n）=n。

%C根据_Daniel Suteu，比率（A319626（n）/A319627（n））也可以被视为“初级通货紧缩”。当仅限于A025487的术语时，该定义与此一致，对于A025488中的所有k，A319626（k）=a（k），以及A319627（k）=1_Antti Karttunen_，2019年12月29日

%H Antti Karttunen，n的表格，n=1..65537的a（n）</a>

%F对于奇数n，a（n）=1，对于偶数n，b（n）=A000040（A276084（n））*a（A111701（n）。

%F对于偶数n，a（n）=A000040（A276084（n））*a。

%F A108951（a（n））=A328479（n），对于n>=1。

%F a（A108951（n））=n，当n>=1时。

%F a（A328479（n））=a（n），当n>=1时。

%F a（A328478（n））=1，当n>=1时。

%F a（A002110（n））=A000040（n），对于n>=1。

%F a（A000142（n））=A307035（n），对于n>=0。

%F a（A283477（n））=A019565（n），当n>=0时。

%F a（A329886（n））=A005940（1+n），当n>=0时。

%F a（A329887（n））=A163511（n），当n>=0时。

%F a（A329602（n））=A329888（n），当n>=1时。

%F a（A025487（n））=A181815（n），对于n>=1。

%F a（A124859（n））=A181819（n。

%F a（A181817（n））=A025487（n。

%F a（A181821（n））=A122111（n），当n>=1时。

%F a（A002182（n））=A329902（n），对于n>=1。

%对于n>=1，F a（A260633（n））=A329889（n）。

%F a（A033833（n））=A330685（n），对于n>=1。

%F a（A307866（1+n））=A330686（n），当n>=1时。

%F a（A330687（n））=A330689（n），当n>=1时。

%t数组[If[OddQ@#，1，Times@@Prime@#&@Rest@NestWhile[Append[#1，{#3，Drop[#，-LengthWhile[Creverse@#，#==0&]]&[#2-PadRight[ConstantArray[1，#3]，Length@#2]}]&@@{#1，#2，Length While[#2，#>0&]}&@@{#，#[-1，-1]}&，{0，TakeWhile[Pif[#==1，{0}，Function[f，替换部件[表[0，{PrimePi[f[[-1，1]]}]，#]&@Map[PrimePi@First@#->Last@#&，f]]@FactorInteger@#]，#>0&]}，And[FreeQ[#[-1，-1]]，0]，Length[#[-1-，-1]]]！=0]&][[全部，1]]&，105]（*米歇尔·德弗里格，2019年12月28日*）

%t数组[Times@@Prime@（TakeWhile[Reap[FixedPointList[Block[｛k=1｝，While[Mod[#，Prime@k]==0，k++]；Sow[k-1]；#/Product[Prime@i，｛i，k-1｝]]&，#]][[-1，1]]，#>0&]）&，105]（*_Michael De Vlieger_，2020年1月11日*）

%o（PARI）A329900（n）={my（m=1，pp=1）；while（1，对于素数（p=2，如果（n%p，如果（2==p，返回（m），中断），n/=p；pp=p）；m*=pp）；（m）；}；

%o（PARI）

%o A111701（n）=素数（p=2，如果（n%p，返回（n），n/=p））；

%o A276084（n）={对于（i=1，oo，if（n%质数（i），返回（i-1）））；}

%o A329900（n）=如果（n%2.1，素数（A276084（n））*A329900；

%Y A108951的左反转。与A025487上的A319626重合。

%Y参见A002110、A002182、A111701、A181815、A18181、A1818、A1819、A181821、A276084、A304886、A319626、A319627、A328478、A32847、A329889、A329902、A330685、A330666、A33068。

%K nonn公司

%O 1,2号机组

%A _Antti Karttunen，2019年12月22日