%I#25 2022年6月2日10:06:19

%S 1,5,2,3,10,4,17,6,20,8,11,34,12,21,16,7,22,35,13,40,32,9,14,23,68,24，

%电话：42,64,25,18,15,44,69,26,80128,33,49,19,28,45,70,48,84256,43,65,50，

%U 36,29,46,75,52,85512,57,86,66,51,37,30,88136,53160124

%N A（N，k）是第N个数字m，因此从m开始的Collatz（或3x+1）轨迹正好包含k个奇数整数；正方形数组A（n，k），n>=1，k>=1。

%H Alois P.Heinz，行数n=1..150，扁平</a>

%H维基百科，<a href=“https://en.wikipedia.org/wiki/Collatz_conjustructure网站“>Collatz猜想</a>

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

%H<a href=“/index/Per#IntegerPermutation”>正整数置换序列的索引项</a>

%F A078719（A（n，k））=k。

%e方阵A（n，k）开始：

%e 1、5、3、17、11、7、9、25、33、43。。。

%e 2、10、6、34、22、14、18、49、65、86。。。

%e 4、20、12、35、23、15、19、50、66、87。。。

%e 8、21、13、68、44、28、36、51、67、89。。。

%e 16、40、24、69、45、29、37、98、130、172。。。

%e 32、42、26、70、46、30、38、99、131、173。。。

%e 64、80、48、75、88、56、72、100、132、174。。。

%e 128、84、52、136、90、58、74、101、133、177。。。

%e 256、85、53、138、92、60、76、102、134、178。。。

%e 512、160、96、140、93、61、77、196、260、179。。。

%p b:=proc（n）选项记忆；irem（n，2，‘r’）+

%p`if`（n=1，0，b（`if'（n:：奇数，3*n+1，r））

%p端：

%p A:=proc（）局部h，p，q；p、 q:=proc（）[]结束，0；

%p进程（n，k）

%p如果k=1，则返回2^（n-1）fi；

%p而nops（p（k））<n做q：=q+1；

%p h：=b（q）；

%p p（h）：=[p（h）[]，q]

%p od；p（k）[n]

%p端

%p端（）：

%p序列（序列（A（n，1+d-n），n=1..d），d=1..12）；

%tb[n_]：=b[n]=模[{q，r}，{q，r}=商余数[n，2]；第页+

%t如果[n==1，0，b[If[OddQ[n]，3*n+1，q]]]；

%t A=模[{h，p，q}，p[_]={}；q=0；

%t函数[{n，k}，如果[k==1，2^（n-1）]；

%t当[长度[p[k]]<n时，q=q+1；

%t h=b[q]；

%t p[h]=附加[p[h],q]]；

%tp[k][[n]]]；

%t表[表[A[n，1+d-n]，{n，1，d}]，{d，1，12}]//扁平（*_Jean-François Alcover_，2022年6月2日，在_Alois P.Heinz_*之后）

%Y列k=1-12给出：A011782、A062052、A0620.53、A0620054、A062555、A06206056、A062077、A062088、A06205、A0620060、A072466、A072122。

%Y行n=1表示A092893（k-1）。

%Y参见A006577、A006667、A078719。

%K nonn，表格

%O 1,2号机组

%A _Alois P.Heinz，2022年5月20日