A028396 Iterate the map in A006369 starting at 14.

14, 19, 25, 33, 22, 29, 39, 26, 35, 47, 63, 42, 28, 37, 49, 65, 87, 58, 77, 103, 137, 183, 122, 163, 217, 289, 385, 513, 342, 228, 152, 203, 271, 361, 481, 641, 855, 570, 380, 507, 338, 451, 601, 801, 534, 356, 475, 633, 422, 563, 751, 1001, 1335, 890, 1187

Offset: 0

Author

J. H. Conway

Keywords

• nonn

Links

• T. D. Noe, Table of n, a(n) for n = 0..1000
• Index entries for sequences related to 3x+1 (or Collatz) problem

Crossrefs

Cf. A028394, A028396, A094328, A094329, A185589, A185590.

Programs

Haskell

a028396 n = a028396_list !! n
a028396_list = iterate a006369 14  -- Reinhard Zumkeller, Dec 31 2011

Mathematica

SubstitutionSystem[{n_ :> Switch[Mod[n, 3], 0, 2n/3, 1, (4n - 1)/3, , (4n + 1)/3]}, {14}, 60] // Flatten (* _Jean-François Alcover, Mar 01 2019 *)