%我#2022年7月12日19:52:21
%S 0,0,00,0,1,0,0,0,0',0,0,
%T 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
%U 0,0,00,0,1,0,0,0,0',0,0
%如果N的形式为p^2*q,则N a(N)=1,其中p和q是p<q<p^2的素数,否则为0。
%H Antti Karttunen,n的表,n=1..100000的a(n)</a>
%特征函数的索引项</a>
%F a(n)=A353472(n)*A355454(n)。
%F a(n)=A353474(n)-A355443(n)。
%t a[n_]:=如果[(f=FactorInteger[n])[[;;,2]]=={2,1}&&f[[1,1]]^2>f[[2,1],1,0];阵列[a,100](*_Amiram Eldar_,2022年7月7日*)
%o(PARI)A355444(n)=((numdiv(n)==(3+bigomega(n)))&平方(除数(n)[4]));
%Y A355446的特性函数。
%Y参见A353472、A353474、A355443、A355454。
%K nonn公司
%O 1号机组
%2022年7月2日,安蒂·卡图内
|