A161021 Collatz (or 3x+1) trajectory starting at 703.
703, 2110, 1055, 3166, 1583, 4750, 2375, 7126, 3563, 10690, 5345, 16036, 8018, 4009, 12028, 6014, 3007, 9022, 4511, 13534, 6767, 20302, 10151, 30454, 15227, 45682, 22841, 68524, 34262, 17131, 51394, 25697, 77092, 38546, 19273, 57820, 28910
Offset: 0
Links
Programs
-
Mathematica
NestList[If[EvenQ[#],#/2,3#+1]&,703,40] (* Harvey P. Dale, Nov 27 2011 *)
Extensions
Edited by N. J. A. Sloane, Jul 27 2019
Comments