

A095909


First occurrence of n in the modified Juggler sequence.


2



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;
refs;
listen;
history;
text;
internal format)



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: A193232 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



