|
Search: id:A095909
|
|
|
| A095909 |
|
First occurrence of n in the modified Juggler sequence. |
|
+0
3
|
|
| 2, 4, 14, 11, 5, 3, 8, 35, 15, 9, 43, 19, 7, 41, 173, 31, 693, 123, 25, 437, 73, 2239, 303, 215, 1349, 165, 9549, 875, 655, 3439, 229, 121, 1401, 599, 163, 853, 295, 103, 307, 157, 2067, 841, 26179, 883, 775, 8465, 417, 639, 3099, 1487, 44857, 1275, 1307
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
The modified Juggler sequence: begin with x, and if x is even, round(sqrt(x)) -> x and if x is odd, round(sqrt(x3)) -> x and repeat until x = 1, count the iterations.
|
|
MATHEMATICA
|
mjs[n_] := If[ EvenQ[n], Round[ Sqrt[n]], Round[ Sqrt[n^3]]]; f[n_] := Length[ NestWhileList[mjs, n, # != 1 &]] - 1; a = Table[0, {66}]; Do[ b = f[n]; If[b < 67 && a[[b]] == 0, a[[b]] = n]], {n, 44900}]; a
|
|
CROSSREFS
|
Cf. A007321, A095910, A095911.
Sequence in context: A056678 A092665 A131758 this_sequence A087420 A054600 A077570
Adjacent sequences: A095906 A095907 A095908 this_sequence A095910 A095911 A095912
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 14 2004
|
|
|
Search completed in 0.002 seconds
|
