A094716 Largest value in trajectory of n under the juggler map of A094683.
0, 1, 2, 36, 4, 36, 6, 18, 8, 140, 36, 36, 36, 46, 36, 58, 16, 70, 18, 140, 20, 140, 22, 110, 24, 52214, 36, 140, 36, 156, 36, 172, 36, 2598, 36, 2978, 36, 24906114455136, 38, 233046, 40, 262, 42, 4710, 44, 5222, 46, 322, 48, 6352, 50, 364, 52, 7554, 54, 8210, 56, 430, 58, 946636
Offset: 0
Links
- Hans Havermann, Table of n, a(n) for n = 0..2188 (shortened by _N. J. A. Sloane_, Jan 13 2019)
- Harry J. Smith, Juggler Numbers
Programs
-
Mathematica
smx={};Do[a=n;mx=n;While[a!=1,a=If[Mod[a,2]==0,Floor[Sqrt[a]],Floor[a^(3/2)]];If[a>mx,mx=a]];AppendTo[smx,mx],{n,59}];Join[{0},smx] (* James C. McMahon, Apr 15 2025 *)
Extensions
More terms from Jason Earls, Jun 10 2004
a(37) corrected by Labos Elemer, Jun 19 2004
a(49) corrected by Hans Havermann, Dec 07 2017
Comments