

A095911


Number of steps where the modified Juggler sequence reaches a new record (A095910).


4



1, 6, 13, 19, 21, 62, 64, 83, 94, 112, 120, 142, 144, 301, 306, 311, 322, 338, 357
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,2


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.
The records A094696 and A095911 are probably the same sequence.  R. J. Mathar, Jul 28 2007


LINKS

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


MATHEMATICA

mjs[n_] := If[ EvenQ[n], Round[ Sqrt[n]], Round[ Sqrt[n^3]]];; f[n_] := Length[ NestWhileList[mjs, n, # != 1 &]]  1; a = {0}; Do[ b = f[n]; If[b >a[[ 1]] AppendTo[a, b]; Print[n]], {n, 250000}]


CROSSREFS

Cf. A007321, A095909, A095910.
Sequence in context: A287237 A282975 A094696 * A013575 A075727 A246306
Adjacent sequences: A095908 A095909 A095910 * A095912 A095913 A095914


KEYWORD

nonn


AUTHOR

Robert G. Wilson v, Jun 14 2004


EXTENSIONS

a(16)a(19) from Chai Wah Wu, Aug 18 2016


STATUS

approved



