%I#57 2020年4月16日09:37:39

%S 1,2,3,3,5,6,7,6,5,10,11,5,13,14,15,5,17,10,19,15,21,22,23,10,7,26,15，

%电话：21、29、30、31、10、33、34、35、15、37、38、39、30、41、42、43、33、7、46、47、15、11、14，

%U 51,39,53,30,55,42,57,58,59,7,61,62,35,15,65,66,67,51,69,70,71,30,73,74,21

%N a（N）是迭代k->A097246（k）时达到的最终稳定点，从k=N开始。

%C a（n）=r（n，m

%C A097248（n）=r（n，a（n））。

%C来自安蒂·卡图宁，2016年11月15日：（开始）

%C上述备注可以解释为A097249（n）<=a（n）。

%所有项都是无平方的，无平方数是不动点。

%C这些也是迭代A277886时最终达到的固定点。

%C（结束）

%H Antti Karttunen，<a href=“/A097248/b097248.txt”>n的表，a（n）表示n=1.-10000</a>

%F a（A005117（n））=A005117（n）。

%F From _Antti Karttunen，2016年11月15日：（开始）

%F如果A008683（n）<>0[当n为平方自由时]，a（n）=n，否则a（n”）=a（A097246（n））。

%F如果A277885（n）=0，a（n）=n，否则a（n”）=a（A277886（n））。

%F A007913（a（n））=一（n）。

%F a（A007913（n））=A007912（n）。

%F A048675（a（n））=A048675。

%F a（A260443（n））=A019565（n）。

%F（结束）

%F From _Peter Munn，2020年2月6日：（开始）

%F a（1）=1；a（p）=p，对于素数p；a（m*k）=A331590（a（m），a（k））。

%F a（A331590（m，k））=A331590-（a（m），a（k））。

%F a（n^2）=a（A003961（n））=A003962（a（n）。

%F a（A225546（n））=a（n）。

%F a（n）=A225546（2^A048675（n））=A019565（A048675n））。

%F a（A329050（n，k））=素数（n+k-1）=A000040（n+k-1）。

%F a（A329332（n，k））=A019565（n*k）。

%F等价地，a（A019565（n）^k）=A019565。

%F（结束）

%F From _Antti Karttune_，2020年2月22日至25日和3月1日：（开始）

%F a（A019565（x）*A019565。

%F a（A332461（n））=A332462（n）。

%F a（A332824（n））=A019565（n）。

%F a（A277905（n，k））=A277906（n，1）=A019565（n），对于所有n>=1，以及1<=k<=A018819（n）。

%F（结束）

%t表[FixedPoint[Times@@Map[#1^#2&@@#&，Partition[#，2，2]&@Flatten[FactorInteger[#]/。{p，e}/；e>=2:>{If[OddQ@e，{p，1}，{1，1}]，{NextPrime@p，Floor[e/2]}]&，n]，{n，75}]（*_Michael De Vlieger_，2017年3月18日*）

%o（PARI）

%o A097246（n）={my（f=因子（n））；prod（i=1，#f~，（下一素数（f[i，1]+1）^；

%o A097248（n）={my（k=A097246（n））；而（k<>n，n=k；k=A097 246（k））；k；}；

%2017年3月18日

%o（方案）；；带有记忆宏定义

%o；；两种实现：

%o（定义（A097248 n）（如果（不是（零？（A008683 n）））n（A09724 8（A097266 n））

%o（定义（A097248 n）（如果（零？（A277885 n））n（A09724 8（A27788 n）））

%o_Antti Karttunen_，2016年11月15日

%o（Python）

%o来自sympy import factorint，nextprime

%o来自操作员导入mul

%o定义a097246（n）：

%o f=因子（n）

%o如果n==1，则返回1，否则对于f中的i，reduce（mul，[（nextprime（i）**int（f[i]/2））*（i**（f[i]%2））

%o定义a（n）：

%o k=a097246（n）

%o而k=编号：

%o n=k

%o k=a097246（k）

%o 2017年5月15日返回k#_Indranil Ghosh

%Y值范围为A005117。

%Y参见A008683、A019565、A048675、A097246、A097277、A097299、A277905、A332824。

%Y A003961、A225546、A277885、A2778.86、A331590用于表示此序列项之间的关系。

%Y公式部分还详细说明了序列如何映射A007913、A260443、A329050、A329332的术语。

%Y参见A283475、A283478和A331751中的注释/公式，给出它们与该序列的关系。

%K nonn公司

%O 1,2号机组

%A _Reinhard Zumkeller，2004年8月3日

%2016年11月15日，Antti Karttune_更改了E名称，并将原始定义移至评论部分