|
Search: id:A094698
|
|
|
| A094698 |
|
Number of steps where the Juggler sequence reaches a new record. |
|
+0
5
|
|
| 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; listen)
|
|
|
OFFSET
|
1,3
|
|
|
COMMENT
|
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 this_sequence A096405 A108595 A022938
Adjacent sequences: A094695 A094696 A094697 this_sequence 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
|
|
|
Search completed in 0.002 seconds
|
