A094725 Largest value in trajectory of n under the modified juggler map of A094685.
0, 1, 2, 36, 4, 36, 6, 756, 36, 140, 36, 36, 36, 322, 14, 58, 16, 70, 18, 756, 20, 96, 36, 110, 36, 196070, 36, 140, 36, 156, 36, 213705634112, 32, 190, 34, 2978, 36, 196070, 38, 244, 40, 278534, 42, 282, 756, 302, 756, 322, 756, 6352, 756, 756, 756, 386, 756
Offset: 0
Links
- Chai Wah Wu, Table of n, a(n) for n = 0..548
Crossrefs
Cf. A094685.
Programs
-
Mathematica
smx={};Do[a=n;mx=n;While[a!=1,a=If[Mod[a,2]==0,Round[Sqrt[a]],Round[a^(3/2)]];If[a>mx,mx=a]];AppendTo[smx,mx],{n,54}];Join[{0},smx] (* James C. McMahon, Apr 15 2025 *)
Extensions
More terms from John W. Layman, Jun 15 2004
Comments