%I#9 2023年9月15日18:53:29
%S 1,1,2,1,2,2,4,1,2,2,2,4,4,4,1,6,6,4,8,4,6,2,2,8,6,2,12,6,16,6,
%T 10,4,6,16,10,8,4,10,6,10,10,4,12,6,6,10,8,12,10,8,8,20,10,18,2,
%U 26,14,8,1,12,12,22,10,20,12,28,6,28,14,10,10,6,8,34,4,8,18,4,10,14,20,6,52,10,12,10,24
%N当A181821(N)写入基本基数(A049345)时的位数总和。
%C添加到A181821(n)的最小基本数(A002110)。
%H Antti Karttunen,n的表,n=1..65537的a(n)</a>
%H<a href=“/index/Pri#prime_indices”>根据素因式分解中的索引计算出的序列的索引项</a>
%H<a href=“/index/Pri#primorialbase”>与primorial base相关序列的索引条目</a>
%F a(n)=A276150(A181821(n))。
%F a(n)=A324888(A122111(n))。
%F a(n)>=A365460(n)。
%o(PARI)
%o A181821(n)={my(f=因子(n),p=0,m=1);对于步骤(i=#f~,1,-1,而(f[i,2],f[i、2]--;m*=(p=下一个素数(p+1))^素数(f[i,1]));(m);};
%o A276150(n)={my(s=0,p=2,d);while(n,d=(n%p);s+=d;n=(n-d)/p;p=下一素数(1+p);(s);};
%o A365461(n)=A276150(A181821(n));
%Y参考A002110、A049345、A122111、A181821、A276150、A324888、A365460。
%K nonn公司
%氧1,3
%A _Antti Karttunen_,2023年9月15日
|