A368228 - OEIS

%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