A095909 First occurrence of n in the modified Juggler sequence.

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

Offset

1,1

Comments

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.

Links

Table of n, a(n) for n=1..53.

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: A336841 A189486 A131758 * A151872 A087420 A194388

Adjacent sequences: A095906 A095907 A095908 * A095910 A095911 A095912

Keyword

nonn

Author

Robert G. Wilson v, Jun 14 2004

Status

approved