|
Search: id:A094670
|
|
|
| A094670 |
|
Smallest number which requires n iterations to reach 1 in the juggler sequence problem. |
|
+0
3
|
|
| 1, 2, 4, 16, 7, 5, 3, 9, 33, 19, 81, 25, 353, 183, 39, 201, 103, 37, 205, 77, 681, 263, 3817, 429, 175, 1673, 539, 165, 671, 321, 5875, 477, 173, 2243, 265, 29017, 1011, 677, 9361, 659, 241, 3389, 1123, 163, 2057, 625, 15271, 4481
(list; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
COMMENT
|
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(48) is unknown (<250000), sequence continues 5349,1991,87167,2257,..., . - Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 14 2004
|
|
LINKS
|
Eric Weisstein's World of Mathematics, Juggler Sequence
Eric Weisstein's World of Mathematics, Juggler Sequence
|
|
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}] (from Robert G. Wilson v)
|
|
CROSSREFS
|
Cf. A007320, A094679, A095908.
Sequence in context: A132483 A125594 A097542 this_sequence A110005 A019540 A109584
Adjacent sequences: A094667 A094668 A094669 this_sequence A094671 A094672 A094673
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Jason Earls (zevi_35711(AT)yahoo.com), Jun 09 2004
|
|
EXTENSIONS
|
More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 14 2004
|
|
|
Search completed in 0.002 seconds
|
