A094329 Iterate the map in A006369 starting at 16.

16, 21, 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, 1583

Offset

1,1

References

J. C. Lagarias, ed., The Ultimate Challenge: The 3x+1 Problem, Amer. Math. Soc., 2010; see page 270.

Links

T. D. Noe, Table of n, a(n) for n=1..1001

Index entries for sequences related to 3x+1 (or Collatz) problem

Mathematica

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

Prog

(Haskell)
a094329 n = a094329_list !! (n-1)
a094329_list = iterate a006369 16  -- Reinhard Zumkeller, Dec 31 2011

Crossrefs

See A006368, A028394, A028396, A094328, A185589, A185590.

Sequence in context: A045667 A045658 A167305 * A070573 A186462 A205098

Adjacent sequences: A094326 A094327 A094328 * A094330 A094331 A094332

Keyword

nonn

Author

N. J. A. Sloane, Jun 04 2004

Status

approved