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 A094698 #28 Apr 15 2025 08:25:00
%S A094698 0,1,6,7,9,11,17,19,43,73,75,80,88,96,107,131,166,193,201,258,263,268,
%T A094698 271,298,335,340,443,479,484,527
%N A094698 Number of steps where the Juggler sequence reaches a new record.
%C A094698 Records in A007320.
%C A094698 The Juggler sequence: begin with x; if x is even, floor(sqrt(x)) -> x; if x is odd, floor(sqrt(x^3)) -> x; repeat until x = 1, count the iterations.
%H A094698 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/JugglerSequence.html">Juggler Sequence</a>
%t A094698 $MaxPrecision = 250000000; js[n_] := If[ EvenQ[ n], Floor[ Sqrt[n]], Floor[ Sqrt[n^3]]]; f[n_] := Block[{c = 1, k = n}, While[k = js[k]; k != 1, c++ ]; c]; a = {0}; Do[ b = f[n]; If[b > a[[ -1]], AppendTo[a, b]; Print[n]], {n, 3053595}] (* _Robert G. Wilson v_, Jun 14 2004 *)
%Y A094698 Cf. A007320, A094670, A094679.
%K A094698 nonn,more,hard
%O A094698 1,3
%A A094698 _N. J. A. Sloane_, Jun 09 2004
%E A094698 More terms from _Robert G. Wilson v_, Jun 14 2004
%E A094698 a(25) = 335 from _Eric W. Weisstein_, Jan 25 2006
%E A094698 Edited by _N. J. A. Sloane_, Sep 16 2008 at the suggestion of Tim Nikkel
%E A094698 a(26)-a(29) from _Giovanni Resta_, Apr 08 2017
%E A094698 a(30) from _Ethan Slota_, Apr 15 2025