%I#14 2022年1月30日23:04:10
%S 0,0,1,0,2,1,0,2,2,1,2,2,1,1,2,3,2,3,3,2,2,2,2,3,2,1,2,2,3,
%T 2,2,4,3,2,2,2,1,3,2,2,2,1,2,3,3,3,1,2,3,2,3,1,3,3、3,32,2,1,2,0,2,4,3,
%U 2,2,3,2,5,4,3,2,2,3,1,4,2,2,2,2,4,2,1,4,3,1,2,3,4,2,2,2,1,2,1,2,3,3,3,12,3
%N达到2次幂所需的A347385迭代次数(对N的奇数部分应用Dedekind psi函数)。
%C此外,对于n>1,比A347385的迭代次数少一次,达到1。
%H Antti Karttunen,n的表,n=1..20000的a(n)</a>
%F如果A209229(n)=1,则a(n)=0,否则a(n)=1+a(A001615(A000265(n)))。
%F对于所有n>=1,a(n)<=A331410(n)。
%t f[p_,e_]:=如果[p==2,1,(p+1)*p^(e-1)];psiOdd[1]=1;psiOdd[n_]:=倍@@f@@FactorInteger[n];a[n_]:=-1+长度@NestWhileList[psiOdd,n,#!=2^整数指数[#,2]&];阵列[a,100](*_Amiram Eldar_,2021年8月31日*)
%o(PARI)
%o A347385(n)=如果(1==n,n,my(f=系数(n>>估值(n,2)));prod(i=1,#f~,f[i,1]^f[i,2]+f[i,1]^(f[i,2]-1));
%o A347386(n)=如果(!位和(n,n-1),0,1+A347385(n));
%Y参考A000265、A001615、A209229、A347385、A34738.7(达到2的最终幂的指数)。
%Y也可参见A003434、A019269、A227944、A256757、A331410、A336361了解类似序列。
%K nonn公司
%O 1,5型
%2021年8月31日,安提·卡图内
|