This site is supported by donations to The OEIS Foundation.

 Please make a donation to keep the OEIS running. We are now in our 55th year. In the past year we added 12000 new sequences and reached 8000 citations (which often say "discovered thanks to the OEIS"). We need to raise money to hire someone to manage submissions, which would reduce the load on our editors and speed up editing. Other ways to donate

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A094679 n sets a new record for number of iterations to reach 1 in the juggler sequence problem. 7
 1, 2, 3, 9, 19, 25, 37, 77, 163, 193, 1119, 1155, 4065, 4229, 4649, 7847, 13325, 34175, 59739, 78901, 636731, 1122603, 1301535, 2263913, 5947165, 72511173, 78641579, 125121851, 198424189 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 COMMENTS Where records occur in A007320. The Juggler sequence: begin with x and if x is even, [sqrt(x)] -> x and if x is odd, [sqrt(x^3)] -> x and repeat until x = 1, count the iterations. - Robert G. Wilson v, Jun 14 2004 78901 reaches a maximum of 4064983429...(skip the next 371727 digits)...2140697134 during its trip to 1. - Robert G. Wilson v, Jun 14 2004 I postulate that 2 is the only even number in this sequence. - Harry J. Smith, Aug 15 2008 a(30) > 1.6*10^9. - Giovanni Resta, Apr 08 2017 LINKS Eric Weisstein's World of Mathematics, Juggler Sequence EXAMPLE 78901 takes 258 iterations to reach 1; see A094698 for the others. MATHEMATICA \$MaxPrecision = 250000000; js[n_] := If[ EvenQ[ n], Floor[ Sqrt[n]], Floor[ Sqrt[n^3]]]; f[n_] := Block[{c = 1, k = n}, While[k = js[k]; k != 1, c++ ]; c]; a = {0}; Do[ b = f[n]; If[b > a[[ -1]], AppendTo[a, b]], {n, 3053595}]; a (* Robert G. Wilson v *) CROSSREFS Cf. A007320, A094670, A094698, A095906, A094698. Sequence in context: A298347 A113201 A089753 * A298357 A094812 A307898 Adjacent sequences:  A094676 A094677 A094678 * A094680 A094681 A094682 KEYWORD more,nonn,hard AUTHOR Jason Earls, Jun 09 2004 EXTENSIONS More terms from Robert G. Wilson v, Jun 14 2004 a(25) = 5947165 from Eric W. Weisstein, Jan 25 2006 a(26)-a(27) from Robert G. Wilson v, Jun 15 2014 a(28)-a(29) from Giovanni Resta, Apr 08 2017 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified December 8 09:32 EST 2019. Contains 329862 sequences. (Running on oeis4.)