%I#9 2023年9月15日18:53:25
%S 1,1,1,1,2,1,2,1,2,1,2,2,2,2,2,2,1,3,1,4,1,2,3,1,2,2,2,2,2,2,2,2,3,2,4,1,3,3,
%温度2,1,5,3,3,1,3,2,3,2,2,3,5,1,32,3,2,2,2,5,2,1,3,4,5,4,3,12,3,6,2,
%U 4,2,6,1,6,4,3,3,4,6,1,3,3,1,3,7,2,4,4,2,8,2,4,1,6,1,32,6,3,7、2,3
%N向A181821(N)添加的贪婪基元数和中的不同基元数。
%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)=A267263(A181821(n))。
%F a(n)=A329040(A122111(n))。
%F a(n)<=A365461(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 A267263(n)={my(s=0,p=2,d);while(n,d=(n%p);s+=!!d;n=(n-d)/p;p=下一素数(1+p);(s);};
%o A365460(n)=A267263(A181821(n));
%Y参见A122111、A181821、A267263、A329040。
%Y参见A365461。
%K nonn公司
%O 1,5型
%2023年9月15日,安提·卡图内
|