登录
A095384号
初始值不超过2^n且峰值也不大于2^n的3x+1轨迹的不同初始值数量。
5
1, 2, 3, 4, 10, 13, 33, 55, 112, 181, 352, 580, 1072, 2127, 6792, 13067, 25906, 51447, 104575, 208149, 415921, 833109, 1661341, 3328124, 6648354, 13283680, 26533708, 53083687, 106166631, 212243709, 424564626, 848967377, 1698139390, 3396064464, 6791623786
抵消
0, 2
例子
n=4:在iv={1,2,…,16}之间{2,8}U{3,5,6,10,12,16}提供小于或等于16的峰值,因此a(4)=10=A087256号(4)+4
数学
c[x_]:=c[x]=(1-Mod[x,2])*(x/2)+Mod[x,2]*(3*x+1);c[1]=1;fpl[x_]:=固定点列表[c,x];{$RecursionLimit=1000;m=0};表[打印[{xm-1,m}];m=0;做[If[!Greater[Max[fpl[n]],2^xm],m=m+1],{n,1,2^xm}],{xm,1,30}]
Collatz[n_]:=NestWhileList[If[EvenQ[#],#/2,3#+1]&,n,#>1&];表[Length[Select[Range[x=2^n],Max[Collatz[#]]<=x&]],{n,0,10}](*T.D.诺伊2013年4月29日*)
关键词
非n
作者
拉博斯·埃利默2004年6月14日
扩展
a(21)-a(32)来自多诺万·约翰逊2011年2月2日
a(0)来自T.D.诺伊2013年4月29日
a(33)-a(34)来自多诺万·约翰逊2013年6月5日
状态
经核准的