%I#29 2019年8月24日11:57:01

%S 0,1,1,2,1,2,1,1,3,2,1,3,1,2,4,1,3,3,4,1,4,4,2,2,4,3,1,5,4,2，

%温度2,4,1,2,3,4,1,5,1,3,7,2,1,5,2,34,3,1,5,4,6,2,1,4,1,6,6,3,5,1,1,3，

%U 6,3,1,5,1,2,4,3,2,4,1,5,8,2,1,6,4,4,1,8,4,9,2,3,6,1,3,6,4,15,1,4,7

%N通过转换x->A032742（x）和x->A302042（x）的一些非空组合可以从N到达的不同非负整数的数目。

%C由边关系x->A032742（x）和x->A302042（x）形成的有向无环图中的不同数>1的个数，其中n是图的唯一根。

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

%对于所有素数p，F a（p）=1。

%F a（n）>=A326191（n）>=最大值（A001222（n），A253557（n））>=最小值。

%e唯一根为153的有向无环图（如下所示）跨越以下七个数字[1，5，17，25，51，75，153]，如A032742（153）=51，A302042（153，75）=75，A032741（51。我们将根153从达到的数字中排除，因此a（153）=6。（同样，我们可以包括153个，但不包括1个）。

%e、。

%e 153页

%电子/\

%电子/\

%e 51 75电话

%e/\/\

%2017年5月\

%电子\|/

%电子\1/

%电子\/

%电子\/

%e 25日

%电子|

%e五

%e（电子）|

%第1页

%o（PARI）

%o up_to=65537；

%o ordinal_transform（invec）={my（om=Map（），outvec=vector（length（invec）），pt）；对于（i=1，length；

%o A020639（n）=如果（n>1，如果（n>n=系数（n，0）[1,1]，n，系数（n）[1,1，1]），1）；\\来自A020639

%o A032742（n）=（n/A020639（n））；

%o v078898=序号变换（向量（up_to，n，A020639（n）））；

%o A078898（n）=v078898【n】；

%o A302042（n）=if（（1==n）||isprime（n），1，my（c=A078898（n），p=素数（-1+素数pi（A020639（n））+素数pi（A020639（c））），d=A078898（c），k=0）；while（d，k++；if（（1==k）||（A020639（k）>=p），d-=1））；（k*p））；

%o A326189aux（n，距离）=如果（1==n，距离，my（newdistvals=setunion（[n]，距离），a=A032742（n），b=A302042（n））；newdistvals=A326189aux（a，newdistvals）；如果（a==b，新距离，A326189aux（b，新距））；

%o A326189（n）=长度（A326189aux（n，集合（[]）））；

%Y参见A001222、A032742、A253557、A302042、A323888、A326075、A326139、A326190、A326.191。

%Y另请参阅A326196。

%K nonn公司

%O 1,4型

%A _Antti Karttunen_，2019年8月23日