%I#10 2017年9月6日21:18:46
%S 1,2,3,4,5,7,7,8,9,11,11,16,13,16,16,17,18,19,25,23,23,36,25,29,
%电话:29,36,29,53,31,32,36,36,36,36,37,53,53,53,41144,43,61,61,47,47144,
%U 49,50,61,61,53144,72,72,59,59107,61144
%N迭代k->(sigma(k)+phi(k))/2所能达到的最大k从k=N开始,当sigma变得奇数时终止。
%C终端类型见A291914。第一个具有未知推测无界行为的术语是a(270)。A291790中给出了更多具有此类行为的n值。
%C此序列的所有有界项都是素数或A028982中的有界项。
%H Hugo Pfoertner,n的表格,n=1..269的a(n)</a>
%H Hugo Pfoertner,<a href=“/A291934/A291934.pdf”>n的序列项图解,在A291790中省略n。
%e a(38)=53:从k=38开始产生轨迹38->39->50->53->53。。。
%e a(42)=144:见A290001中的示例。
%t使用[{lim=100},TakeWhile[#,#>0&]&@Table[Which[Length@#<lim,Last@#,SameQ@@Take[#,-2],Last@@,True,0]&@NestWhileList[(DivisorSigma[1,#]+EulerPhi[#])/2&,n,EvenQ@Divisor西格玛[1,#]&,1,lim],{n,270}]](*_Michael De Vlieger_,2017年9月6日*)
%Y CF.A000010、A000040、A000203、A028982、A289997、A290001、A291789、A291790、A29179、A291914。
%K nonn公司
%O 1,2号机组
%A _胡戈·普福尔特纳,2017年9月6日
|