A161023 Collatz trajectory starting at 35655.
35655, 106966, 53483, 160450, 80225, 240676, 120338, 60169, 180508, 90254, 45127, 135382, 67691, 203074, 101537, 304612, 152306, 76153, 228460, 114230, 57115, 171346, 85673, 257020, 128510, 64255, 192766, 96383, 289150, 144575, 433726
Offset: 0
Links
Crossrefs
Cf. A008884.
Programs
-
Mathematica
NestWhileList[If[EvenQ[#],#/2,3#+1]&,35655,#>1&] (* Harvey P. Dale, Apr 28 2016 *)
Extensions
Edited by N. J. A. Sloane, Jul 27 2019
Comments