OFFSET
0,2
COMMENTS
A juggler sequence is defined as follows: given a positive integer x, repeat: if x is even then x <- [x^(1/2)] else x <- [x^(3/2)] until x=1. The brackets indicate the floor function.
a(104) is unknown ( > 10000000). - Robert G. Wilson v, Jun 11 2014
LINKS
Robert G. Wilson v, Table of n, a(n) for n = 0..103
Eric Weisstein's World of Mathematics, Juggler Sequence
Robert G. Wilson v, List of n & a(n) for n = 0..450 (with 0's for unknown entries)
MATHEMATICA
js[n_] := If[ EvenQ[ n], Floor[ Sqrt[n]], Floor[ Sqrt[n^3]]]; f[n_] := Length[ NestWhileList[js, n, # != 1 &]] - 1; a = Table[0, {50}]; Do[ b = f[n]; If[b < 51 && a[[b]] == 0, a[[b]] = n; Print[n, " = ", b]], {n, 10^5}] (* Robert G. Wilson v *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Jason Earls, Jun 09 2004
EXTENSIONS
More terms from Robert G. Wilson v, Jun 14 2004
STATUS
approved