A161022 Collatz (or 3x+1) trajectory starting at 10087.
10087, 30262, 15131, 45394, 22697, 68092, 34046, 17023, 51070, 25535, 76606, 38303, 114910, 57455, 172366, 86183, 258550, 129275, 387826, 193913, 581740, 290870, 145435, 436306, 218153, 654460, 327230, 163615, 490846, 245423, 736270
Offset: 0
Links
Crossrefs
Programs
-
Mathematica
NestList[If[EvenQ[#],#/2,3#+1]&,10087,30] (* Harvey P. Dale, Jul 25 2023 *)
Extensions
Edited by N. J. A. Sloane, Jul 27 2019
Comments