|
%I #5 Oct 15 2013 22:32:25
%S 1,2,36,4,36,36,36,8,140,10,36,36,46,36,58,36,70,36,82,36,96,36,110,
%T 24,52214,26,140,140,156,140,172,32,2598,34,2978,36,86818724,38,
%U 233046,40,262,42,4710,44,5222,46,322,48,6352,50,364,52,7554,54,8210,56,430,58
%N Modified juggler map: see A095396. Largest value in trajectory of started n under the juggler map of A095396.
%C Parallel to A094716.
%e n=37: the trajectory is {37, 225, 3375, 196069, 86818724, 196068, 3374, 224, 36, 10, 4, 2, 1}, the peak is a[37]=86818724
%t 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}]
%Y Cf. A007320, A094683, A094716, A095396, A097398.
%K nonn
%O 1,2
%A _Labos Elemer_, Jun 18 2004
|
