|
%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
|
