%I#30 2019年4月7日00:03:04

%S 0、1、2、2、3、2、4、3、3、5、3、6、4、4、4,7、3、8、4、5、9、4、6、5、10、3、11、5、5，

%T 7,4,4,12,8,6,5,13,4,14,6,4,9,15,5,4,7,7,16,45,6,8,10,17,4,18,11,5，

%U 6,6,5,19,8,9,4,20,5,21,12,4,9,5,6,22,6,2,5,13,23,5,7,14,10,7,24,4,6,10,11,15,8,6,25

%N a（1）=0，a（2）=1，在此之后，如果N的形式为4k+2，则a（N）=a（N/2），否则a（N）=1+a（A252463（N））。

%C来自Gus Wiseman_，2019年4月6日：（开始）

%C也是Heinz数为n的整数分区的Young图中从右下边界到图形距离为1的正方形数，其中整数分区的Heinz值（y_1，…，y_k）是素数（y_1）**质数（yk）。例如，Heinz编号为7865的分区（6,5,5,3）具有图表

%C o o o o o o o o

%C o o o o o o o o

%C o o o o o o o o

%首席执行官

%C带内缘

%C o公司

%抄送（C）

%首席运营官

%首席执行官

%大小为7的C，因此a（7867）=7。

%C（结束）

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

%H<a href=“/index/Pri#prime_indices”>根据素因式分解中的索引计算出的序列的索引项</a>

%F a（1）=0，a（2）=1，在此之后，如果n的形式为4k+2，则a（n）=a（n/2），否则a（n）=1+a（A252463（n））。

%F对于n>1，a（n）=A001511（A297112（n）），其中A297112。

%F a（n）=A252464（n）-A297155（n）。

%F对于n>1，a（n）=1+A033265（A156552（n））=1+A297167（n）=A046660（n）+A061395（n）2018年9月2日，_Antti Karttunen添加的最后两个金额

%F其他身份。对于所有n>=1：

%F a（A000040（n））=n。[每个n在第n素数时第一次出现。]

%t表[如果[n==1.0，PrimePi[FactorInteger[n][[-1,1]]]+PrimeOmega[n]-PrimeNu[n]]，{n，100}]（*_Gus Wiseman_，2019年4月6日*）

%o（PARI）

%o A064989（n）=｛my（f）；f=因子（n）；如果（（（n>1&&f[1,1]==2），f[1,2]=0）；对于（i=1，#f~，f[i，1]=预素数（f[i，1]-1））；factorback（f）｝；

%o A297113（n）=如果（n<=2，n-1，如果（n%2,1+A297113（A064989（n））！（n%4）+A297113（n/2））；

%Moebius变换后，更复杂的方式：

%o A156552（n）=如果（1==n，0，如果（！（n%2），1+（2*A156551（n/2）），2*A156/552（A064989（n）））；

%o A297112（n）=sumdiv（n，d，moebius（n/d）*A156552（d））；

%o A297113（n）=如果（1==n，0,1+估值（A297112（n），2））；

%o（方案，带有备忘录-宏定义）

%o（定义（A297113 n）（条件（（<=n 2）（-n 1））（（=2（模n 4）））（A297115（/n 2）））

%Y比A297167多一个（初始期限后）。

%Y参见A001511、A008683、A033265、A064989、A156552、A252463、A25246、A297112、A297155。

%Y另请参阅A297157、A297161和A297162。

%Y参见A052126、A065770、A112798、A115994、A174090、A325166、A325167和A325169。

%K nonn公司

%氧1,3

%A _Antti Karttunen，2017年12月26日