%I#26 2020年7月14日22:56:28

%S 1,1,2,2,6,3,30,4,3,5210,82310,7,10,430030,9510510,24,14,11，

%电话9699690,12,5,13,18120223092870,156469693230,16,22,17,42,6，

%电话：200560490130,19,26,207420738134810,21304250263527210840,54,2313082761331670030,32,7,25,349240614889782588491410,27,66,28,38,29

%N如果N是一个正方形，a（N）=A000196（N），对于非正方形N，设p是最小素数除以N的无平方部分。将N除以p，再乘以所有较小素数的乘积。

%每个自然数在这个序列中正好出现两次。

%C在像A334860和A334866这样的二叉树中，对于n>2，a（n）给出节点n的父节点。

%C对于无平方部分为A019565（k）、平方部分为m的非平方数n，a（n）是无平方部分A019565的数字（k-1）和平方部分为m.-Peter Munn，2020年7月14日

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

%F a（A334747（n））=无。

%F a（A000040（n））=A002110（n-1）。

%F a（n^2）=n。

%F a（n）=A225546（A252463（A225546（n）））。-_Peter Munn_，2020年6月8日

%t数组[If[IntegerQ[#2]，#2，#1/#2*乘积[初级@i，{i，PrimePi@#2-1}]&@@{#1，FactorInteger[#2/.（c:1）*a_^（b:0）：>（c*a^b）^2][[1，1]}]&@{#，Sqrt[#]}&，58]（*Michael De Vlieger_，2020年6月26日*）

%o（PARI）A334870（n）=如果（issquare（n），sqrtint（n）），my（c=核心（n）、m=n）；对于素数（p=2，if（！（c%p），m/=p；断裂，m*=p））；（m） ）；

%Y A334747的左反转。

%Y参见A000196、A019565、A225546、A252463、A334860、A33486、A3341868、A334899、A334871和A334872。

%K nonn公司

%氧1,3

%2020年6月8日，安蒂·卡图宁