Search: id:A095400
Results 1-1 of 1 results found.

%I A095400
%S A095400 1,2,4,4,8,6,30,8,18,10,24,12,30,30,36,16,150,18,50,20,1320,22,43366048,
%T A095400 24,26092,26,350,28,41678,30,234421146,32,2438232,34,114,36,5184,38,132,
%U A095400 40,124026,42,150,150,160,150,934,48,1008,50,1084,52,12202,54,1240,56
%N A095400 Largest value in trajectory when the following modified juggler map is 
               iterated: a[n]=(1-Mod[n, 2])*Floor[n^(3/4)]+Mod[n, 2]*Floor[n^(4/
               3)]; original exponents {1/2, 3/2} are replaced with {3/4, 4/3}.
%e A095400 n=101: the trajectory is {101, 470, 100, 31, 97, 445, 3397, 51065, 1894513, 
               234421146, 1894512, 51064, 3396, 444, 96, 30, 12, 6, 3, 4, 2, 1}, 
               peak=a[101]=234421146.
%t A095400 e[x_]:=e[x]=(1-Mod[x, 2])*Floor[N[x^(3/4), 50]] +Mod[x, 2]*Floor[N[x^(4/
               3), 50]];e[1]=1; fe[x_]:=Delete[FixedPointList[e, x], -1]; Table[Max[fe[w]], 
               {w, 1, 150}]
%Y A095400 Cf. A007320, A094683, A094716, A094396-A094401.
%Y A095400 Sequence in context: A110794 A117295 A093820 this_sequence A098820 A062383 
               A034583
%Y A095400 Adjacent sequences: A095397 A095398 A095399 this_sequence A095401 A095402 
               A095403
%K A095400 nonn
%O A095400 1,2
%A A095400 Labos E. (labos(AT)ana.sote.hu), Jun 18 2004

Search completed in 0.001 seconds