OFFSET
1,1
COMMENTS
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.
273317 reaches a maximum of 1640703316...(skip the next 35800 digits)...2531417380 during its trip to 1.
Comment from R. J. Mathar, Jul 28 2007: The records A094697 and A095910 are probably the same sequence.
MATHEMATICA
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
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Robert G. Wilson v, Jun 14 2004
EXTENSIONS
a(16)-a(19) from Chai Wah Wu, Aug 18 2016
STATUS
approved