%I#49 2022年5月24日17:50:59
%S 3,6,12,13,24,26,48,52,53,96104106113192208212322627384,
%电话:4164244264545245347688328488585285390909091536,
%电话:16641696170417061808181218131618183072332833923408341234133616
%N个在Collatz(或3x+1)轨迹中有3个奇数的数字。
%C如果x是偶数,Collatz(或3x+1)函数为f(x)=x/2,如果x是奇数,则为3x+1(A006370)。
%C通过对n重复应用f,直到达到1,即可获得n的Collatz轨迹。
%C A078719(a(n))=3;A006667(a(n))=2。
%D J.R.Goodwin,科拉茨猜想的结果,科学。Ann.计算。科学。13(2003)第1-16页
%D J.Shallit和D.Wilson,“3x+1”问题和有限自动机,EATCS公告#46(1992),第182-185页。
%H Reinhard Zumkeller和David A.Corneth,n表,A(n)表示n=1..16191
%H J.Shallit和D.Wilson,<a href=“网址:http://www.cs.uwaterloo.ca/~shallit/Papers/wilson.ps“>“3x+1”问题与有限自动机,EATCS公报第46期(1992年),第182-185页。
%H Eric Weisstein的数学世界,<a href=“http://mathworld.wolfram.com/CollatzProblem.html“>Collatz问题</a>
%H维基百科,<a href=“http://en.wikipedia.org/wiki/Collatz_conjustic网站“>科拉茨猜想</a>
%H<a href=“/index/3#3x1”>与3x+1(或Collatz)问题相关的序列的索引条目</a>
%H<a href=“/index/Ar#2-automatic”>为2-自动序列索引条目。
%F给出这个序列的两个公式在J.R.Goodwin的推论3.1和推论3.2中列出,并有以下注意事项:推论3.2中的值x不能等于零,必须将公式乘以2的所有幂(2^1,2^2,…)才能得到偶数。-_杰弗里·古德温(Jeffrey R.Goodwin),2011年10月26日
%e 3的Collatz轨迹是(3,10,5,16,8,4,2,1),其中包含3个奇数整数。
%t坐标[n_?奇数Q]:=(3n+1)/2;Collatz[n_?EvenQ]:=n/2;oddIntCollatzCount[n_]:=长度[Select[NestWhileList[Collatz,n,#!=1&],OddQ]];选择[Range[4000],oddIntCollatzCount[#]==3&](*_Alonso del Arte_,2011年10月28日*)
%o(哈斯克尔)
%o导入数据。列表(元素索引)
%o a062053 n=a062053_列表!!(n-1)
%o a062053_list=映射(+1)$elemIndices 3 a078719_list
%o--_Reinhard Zumkeller_2011年10月8日
%Y参见A006370、A078719、A006667。
%Y参见A000079、A062052、A062024、A0620055、A062066、A0620.57、A062088、A06205、A0620060。
%Y参考A198584(此序列没有偶数)。
%Y另见A198587。
%A354236的Y列k=3。
%K nonn,简单
%O 1,1号机组
%A·热心的W·威尔逊_
|