A368180 Main diagonal of A368179: the n-th term in the trajectory of n under the A006368 map.

0, 1, 2, 2, 5, 5, 9, 4, 51, 6, 34, 57, 48, 38, 132, 48, 167, 32, 205, 167, 130, 106, 167, 243, 50, 159, 125, 369, 297, 119, 702, 130, 844, 84, 500, 50, 1215, 119, 1424, 142, 840, 312, 126, 3041, 70, 7209, 22143, 540, 1623, 160, 15165, 1443, 8867, 3406, 10509, 1899, 12146, 578, 911, 79

Offset: 0

Author

Paolo Xausa, Dec 15 2023

Keywords

• nonn
• easy

Links

• Paolo Xausa, Table of n, a(n) for n = 0..10000
• Index entries for sequences related to 3x+1 (or Collatz) problem

Crossrefs

Cf. A006368, A368179.

Programs

Mathematica

A368180[n_]:=Nest[If[OddQ[#],Floor[(3#+2)/4],3#/2]&,n,n];
Array[A368180,100,0]

Formula

a(n) = A368179(n,n).