%I#7 2017年8月6日21:35:25

%S 1,6,6,72,72,72，72,6，72,725184，65184，72518431104518451842592，

%电话：5184432373248、363732483、3632483110426873856268628562838585638563856373248，

%电话：31104,363110422394882239488193491763226873858563110422239488

%N定义见注释行。

%C设USigma表示酉西格玛函数，A034448。

%C和A146891中一样，让PF_p（n）表示素数p除以n的最大幂。PF_2是A006519，PF_3是A038500。进一步定义PF_1（n）=1。

%C通过将相应的函数：PF_{p，q，..}（n）=PF_（n）*PF_q（n）*。。。例如，PF_{2,3}=A065331。

%C[如何计算C（m）]

%基素数={2}{3}的C情形

%C C（0）=2^m，b（0）=2^m

%C C（n）=C（n-1）/PF_2[USigma[b（n-1

%C b（n）=美国西格玛[b（n-1）]/PF_2,3[美国西格马[b（n-1）]]

%C如果b（k）=1，则结束

%C a（m）=C（k）

%C序列给出a（m）

%C项的因式分解变为2^r*3^s。

%p A146892:=进程（n）局部b，a，k；

%磅：=[2^n]；

%p，而op（-1，b）<>1 do

%p b：=[操作（b），A065330（A034448（操作（-1，b）））]；

%日期：

%p a：=2^n；

%p代表k从2到nops（b）do

%p a:=a/A006519（A034448（操作（k-1，b））*A038500（A034448（操作（k-1，b）））；

%日期：

%p a；

%页码：#R.J.Mathar_，2009年6月24日

%Y参考A146891。

%K nonn，未编辑

%0、2

%A_Yasutoshi Kohmoto，2009年4月17日

%E更多条款摘自R.J.Mathar_，2009年6月24日