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,1

Links

T. D. Noe, Table of n, a(n) for n = 0..1000

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]}, {14}, 60] // Flatten (* Jean-François Alcover, Mar 01 2019 *)

Prog

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

Crossrefs

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

Sequence in context: A360169 A072124 A026287 * A120158 A292614 A305484

Adjacent sequences: A028393 A028394 A028395 * A028397 A028398 A028399

Keyword

nonn

Author

J. H. Conway

Status

approved