A095397 Modified juggler map: see A095396. Largest value in trajectory of started n under the juggler map of A095396.

1, 2, 36, 4, 36, 36, 36, 8, 140, 10, 36, 36, 46, 36, 58, 36, 70, 36, 82, 36, 96, 36, 110, 24, 52214, 26, 140, 140, 156, 140, 172, 32, 2598, 34, 2978, 36, 86818724, 38, 233046, 40, 262, 42, 4710, 44, 5222, 46, 322, 48, 6352, 50, 364, 52, 7554, 54, 8210, 56, 430, 58

Offset: 1

Author

Labos Elemer, Jun 18 2004

Keywords

• nonn

Comments

Parallel to A094716.

Examples

			n=37: the trajectory is {37, 225, 3375, 196069, 86818724, 196068, 3374, 224, 36, 10, 4, 2, 1}, the peak is a[37]=86818724
		

Crossrefs

Cf. A007320, A094683, A094716, A095396, A097398.

Programs

Mathematica

d[x_]:=d[x]=(1-Mod[x, 2])*Floor[N[x^(2/3), 50]] +Mod[x, 2]*Floor[N[x^(3/2), 50]];d[1]=1; fd[x_]:=Delete[FixedPointList[d, x], -1] Table[Max[fd[w]], {w, 1, m}]