This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A179624 #33 Feb 16 2025 08:33:12
%S A179624 230631,691894,345947,1037842,518921,1556764,778382,389191,1167574,
%T A179624 583787,1751362,875681,2627044,1313522,656761,1970284,985142,492571,
%U A179624 1477714,738857,2216572,1108286,554143,1662430,831215,2493646,1246823
%N A179624 Collatz trajectory starting at 230631.
%C A179624 The total stopping time of 230631 is 442. - _Michael De Vlieger_, Oct 15 2018
%H A179624 Michael De Vlieger, <a href="/A179624/b179624.txt">Table of n, a(n) for n = 1..443</a>
%H A179624 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/CollatzProblem.html">Collatz Problem</a>
%H A179624 Wikipedia, <a href="https://en.wikipedia.org/wiki/Collatz_conjecture">Collatz conjecture</a>
%t A179624 Off[Set::"setraw"];f[n_]:=If[EvenQ[n],n=n/2,n=n*3+1];Do[a=q;lst={a};Do[a=f[a];AppendTo[lst,a];If[a==1,Break[]],{n,10!}];If[Length[lst]>400,Print[lst,Length[lst]]],{q,5*8!,9!}]
%t A179624 NestList[If[EvenQ[#],#/2,3#+1]&,230631,30] (* _Harvey P. Dale_, Jun 26 2011 *)
%Y A179624 Cf. A161021, A179623.
%K A179624 nonn,fini,full,easy
%O A179624 1,1
%A A179624 _Vladimir Joseph Stephan Orlovsky_, Jul 20 2010