%I#8 2019年3月17日21:07:45
%S 0,1,2,3,3,1,4,2,4,4,5,4,6,3,4,1,7,3,8,3,6,5,9,2,5,6,6,10,4,11,3,5,
%T 7,5,4,12,7,6,1,13,2,14,7,6,9,15,3,6,4,1,8,16,7,5,18,8,17,4,18,11,3,
%U 4,6,7,19,9,9,4,20,5,21,12,6,10,6,7,22,4,3,13,23,7,6,14,10,5,24,7,8,11,15,8,3,25,2,8,6,26,9,27,2,5
%如果A324712(N)=0,则N a(N)=0,否则a(N。
%H Antti Karttunen,n的表,n=1..100000的a(n)(基于A156552的Hans Havermann因式分解)
%H<a href=“/index/Bi#binary”>与n的二进制展开相关的序列的索引项</a>
%H<a href=“/index/Pri#prime_indices”>根据素因式分解中的索引计算出的序列的索引项</a>
%H<a href=“/index/Si#SIGMAN”>与sigma(n)相关序列的索引条目</a>
%F如果A324712(n)=0,则a(n)=0,否则a(n)=1+A324728(n)-A324724(n)。
%o(PARI)
%o A324712(n)={my(v=0);对于div(n,d,if(无信息(n/d),v=比特或(v,A323243(d)));(v);};\\还需要A323243的代码。
%o A000523(n)=如果(n<1,0,#二进制(n)-1);\\来自A000523
%o A007814(n)=估价(n,2)
%o A324733(n)={my(k=A324712(n));如果(!k,k,1+(A000523(k)-A007814(k));};
%Y请参阅A323243、A324712、A324724、A324428、A324734和A324735。
%K nonn公司
%氧1,3
%A _Antti Karttunen,2019年3月17日
|