%I#21 2024年1月5日13:27:10

%S 21,64,32,16,8,4,2,1,4,2,4,1,4,2,1,4,1,2,4,2,2,4,4,4,12,4,1，

%T 4,2,1,4,2,2,4,2,4,1,4,2,4,2,1,4,4,2,1,4,1,2,4,4,1,4,12,2,4,1,4，

%U 2,1,4,2,1,4,1,2,4,2,4,1,4,2,2,4,1,4,1,2,4,4,1,1,4,2,4,4,1,1,4,1

%N 3x+1序列从21开始。

%H Colin Barker，<a href=“/A033481/b033481.txt”>n，a（n）表，n=0..1000</a>

%H Bertrand Teguia Tabuguia，<a href=“https://arxiv.org/abs/2401.00256“>超几何类型序列，arXiv:2401.00256[cs.SC]，2023。见第20页。

%H<a href=“/index/3#3x1”>与3x+1（或Collatz）问题相关的序列的索引条目</a>

%H<a href=“/index/Rec#order_03”>带常数的线性递归索引条目，签名（0,0,1）。

%F From _Colin Barker_，2019年10月4日：（开始）

%传真：（21+64*x+32*x^2-5*x^3-56*x^4-28*x^5-14*x^6-7*x^7）/（1-x）*（1+x+x^2））。

%当n>15时，F a（n）=a（n-3）。

%F（结束）

%t嵌套列表[If[EvenQ[#]，#/2,3#+1]&，21100]（*或*）PadRight[{21,64,32,16,8}，100，{2,1,4}]（*Harvey P.Dale_，2018年9月30日*）

%o（PARI）Vec（（21+64*x+32*x^2-5*x^3-56*x^4-28*x^5-14*x^6-7*x^7）/（（1-x）*（1+x+x^2））+o（x^80））\\科林·巴克尔，2019年10月4日

%A347270的Y行21。

%K nonn，简单

%0、1

%杰夫·伯奇（_Jeff Burch）_