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 A095910 #14 Mar 09 2023 02:09:21
%S A095910 2,3,7,25,73,101,471,549,791,837,1199,2267,29773,38653,273317,2776203,
%T A095910 3683335,4975111,8087437
%N A095910 Where the modified Juggler sequence reaches a new record.
%C A095910 The modified Juggler sequence: begin with x and if x is even, round(sqrt(x)) -> x and if x is odd, round(sqrt(x3)) -> x and repeat until x = 1, count the iterations.
%C A095910 273317 reaches a maximum of 1640703316...(skip the next 35800 digits)...2531417380 during its trip to 1.
%C A095910 Comment from _R. J. Mathar_, Jul 28 2007: The records A094697 and A095910 are probably the same sequence.
%t A095910 mjs[n_] := If[ EvenQ[n], Round[ Sqrt[n]], Round[ Sqrt[n^3]]]; f[n_] := Length[ NestWhileList[mjs, n, # != 1 &]] - 1; a = {0}; Do[ b = f[n]; If[b > a[[ -1]], AppendTo[a, b]], {n, 250000}]; a
%Y A095910 Cf. A007321, A095909, A095911.
%K A095910 nonn,more
%O A095910 1,1
%A A095910 _Robert G. Wilson v_, Jun 14 2004
%E A095910 a(16)-a(19) from _Chai Wah Wu_, Aug 18 2016