%I#6 2017年3月30日22:02:48
%S 0,1,3,2,5,4,3,7,6,6,5,5,7,4,9,8,8,
%T 8,9,10,9,8,8,8,7,9,8,10,8,8,7,11,8,11,8,11,10,10,10,9,8,7,10,
%U 6,9,9,12,11,9,9,9,11,10,12,12,11,9,10,9,9,10,9
%N如果结果是奇数,则用除数之和替换,如果结果是偶数,则除以2,从而从N到1的步骤数。
%e a(9)=7,因为9->σ(9)=13->sigma(13)=14->7->sigma=8->4->2->1,因此轨迹{9->13->14->7->8->2->1}有7次迭代。
%tf[n_]:=模[{a=n,k=0},While[a!=1,k++;如果[EvenQ[a],a=a/2,a=DivisorSigma[1,a]];k] ;表[f[n],{n,1150}]
%Y参考A000203。
%K nonn,简单
%氧1,3
%2015年7月7日,拉格瑙市
|