login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy .

Last modified February 17 20:32 EST 2018. Contains 299297 sequences. (Running on oeis4.)