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 A095909 #7 Jun 05 2025 20:38:29
%S A095909 2,4,14,11,5,3,8,35,15,9,43,19,7,41,173,31,693,123,25,437,73,2239,303,
%T A095909 215,1349,165,9549,875,655,3439,229,121,1401,599,163,853,295,103,307,
%U A095909 157,2067,841,26179,883,775,8465,417,639,3099,1487,44857,1275,1307
%N A095909 First occurrence of n in the modified Juggler sequence.
%C A095909 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.
%t A095909 mjs[n_] := If[ EvenQ[n], Round[ Sqrt[n]], Round[ Sqrt[n^3]]]; f[n_] := Length[ NestWhileList[mjs, n, # != 1 &]] - 1; a = Table[0, {66}]; Do[ b = f[n]; If[b < 67 && a[[b]] == 0, a[[b]] = n], {n, 44900}]; a
%Y A095909 Cf. A007321, A095910, A095911.
%K A095909 nonn
%O A095909 1,1
%A A095909 _Robert G. Wilson v_, Jun 14 2004