login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
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}. 0
1, 2, 4, 4, 8, 6, 30, 8, 18, 10, 24, 12, 30, 30, 36, 16, 150, 18, 50, 20, 1320, 22, 43366048, 24, 26092, 26, 350, 28, 41678, 30, 234421146, 32, 2438232, 34, 114, 36, 5184, 38, 132, 40, 124026, 42, 150, 150, 160, 150, 934, 48, 1008, 50, 1084, 52, 12202, 54, 1240, 56 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

LINKS

Table of n, a(n) for n=1..56.

EXAMPLE

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.

MATHEMATICA

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}]

CROSSREFS

Cf. A007320, A094683, A094716, A094396-A094401.

Sequence in context: A117295 A235999 A093820 * A237264 A265560 A265544

Adjacent sequences:  A095397 A095398 A095399 * A095401 A095402 A095403

KEYWORD

nonn

AUTHOR

Labos Elemer, Jun 18 2004

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified August 25 10:44 EDT 2019. Contains 326324 sequences. (Running on oeis4.)