A095909 - OEIS

%I #4 Mar 30 2012 17:31:01

%S 2,4,14,11,5,3,8,35,15,9,43,19,7,41,173,31,693,123,25,437,73,2239,303,

%T 215,1349,165,9549,875,655,3439,229,121,1401,599,163,853,295,103,307,

%U 157,2067,841,26179,883,775,8465,417,639,3099,1487,44857,1275,1307

%N First occurrence of n in the modified Juggler sequence.

%C 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 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 Cf. A007321, A095910, A095911.

%K nonn

%O 1,1

%A _Robert G. Wilson v_, Jun 14 2004