|
| |
|
|
A094698
|
|
Number of steps where the Juggler sequence reaches a new record.
|
|
4
| |
|
|
0, 1, 6, 7, 9, 11, 17, 19, 43, 73, 75, 80, 88, 96, 107, 131, 166, 193, 201, 258, 263, 268, 271, 298, 335
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,3
|
|
|
COMMENTS
| Records 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.
|
|
|
LINKS
| Eric Weisstein's World of Mathematics, Juggler Sequence
Eric Weisstein's World of Mathematics, Juggler Sequence
|
|
|
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]; Print[n]], {n, 3053595}] - Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 14 2004
|
|
|
CROSSREFS
| Cf. A007320, A094670, A094679.
Sequence in context: A094010 A100348 A095908 * A096405 A108595 A186079
Adjacent sequences: A094695 A094696 A094697 * A094699 A094700 A094701
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| N. J. A. Sloane (njas(AT)research.att.com), Jun 09 2004
|
|
|
EXTENSIONS
| More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 14 2004
a(25) = 335 from Eric Weisstein (eric(AT)weisstein.com), Jan 25, 2006
Edited by N. J. A. Sloane (njas(AT)research.att.com), Sep 16 2008 at the suggestion of Tim Nikkel
|
| |
|
|
