|
%I #10 Dec 21 2023 05:24:17
%S 0,1,2,2,6,5,4,6,41,7,86,129,97,68,49,68,49,287,102,137,102,137,385,
%T 538,183,513,361,511,338,481,681,1791,161,855,605,801,271,751,538,356,
%U 1939,1325,890,637,111,1194,380,2111,755,1977,163,1887,601,1701,563,12403,513,1491,7802
%N Main diagonal of A368227: the n-th term in the trajectory of n under the A006369 map.
%H Paolo Xausa, <a href="/A368228/b368228.txt">Table of n, a(n) for n = 0..10000</a>
%H <a href="/index/3#3x1">Index entries for sequences related to 3x+1 (or Collatz) problem</a>
%F a(n) = A368227(n,n).
%t A368228[n_]:=Nest[If[Divisible[#,3],2#/3,Round[4#/3]]&,n,n];
%t Array[A368228,100,0]
%Y Cf. A006369, A368179, A368180, A368227.
%K nonn,easy
%O 0,3
%A _Paolo Xausa_, Dec 18 2023
|
