%I#6 2019年2月12日22:36:57
%S 0,0,0,1,0,2,0,4,2,4,0,7,0,8,4,11,0,8,13,8,16,0,18,4,32,8,25,0,14,0,
%电话:26,16,64,8,21,0128,32,0,26,0,49,14256,0,41,8,16,64,97,0,22,16,
%U 60128512,0,35,01024,26,57,32,50,0193256,28,0,48,02048,16385,16,98,0,71,224096,0,63,648192512116,0,36,327691024
%N a(N)=A156552(N)-A048675(N)。
%H Antti Karttunen,n的表,n=1..4096的a(n)</a>
%H<a href=“/index/Bi#binary”>与n的二进制展开相关的序列的索引项</a>
%H<a href=“/index/Pri#prime_indices”>根据素因式分解中的索引计算出的序列的索引项</a>
%F a(n)=A156552(n)-A048675(n)。
%o(PARI)
%o A048675(n)={my(f=因子(n));和(k=1,#f~,f[k,2]*2^素数(f[k、1]))/2;};\\来自A048675
%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));因子回退(f)};
%o A156552(n)=如果(1==n,0,如果(!(n%2),1+(2*A156551(n/2)),2*A156/552(A064989(n)));
%o A323905(n)=(A156552(n)-A048675(n));
%Y参见A048675、A156552、A323906(rgs-transform)。
%K nonn公司
%O 1,6型
%A _Antti Karttunen,2019年2月12日
|