The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A095396 Modified juggler map: for even numbers: a(n) = floor(n^(2/3)) and for odd n: a(n) = floor(n^(3/2)) = floor(sqrt(n^3)). 3
 1, 1, 5, 2, 11, 3, 18, 4, 27, 4, 36, 5, 46, 5, 58, 6, 70, 6, 82, 7, 96, 7, 110, 8, 125, 8, 140, 9, 156, 9, 172, 10, 189, 10, 207, 10, 225, 11, 243, 11, 262, 12, 281, 12, 301, 12, 322, 13, 343, 13, 364, 13, 385, 14, 407, 14, 430, 14, 453, 15, 476, 15, 500, 16, 524, 16, 548, 16 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,3 COMMENTS Parallel to A094683: values for odd arguments are same, for even not necessarily so. LINKS Antti Karttunen, Table of n, a(n) for n = 1..10000 FORMULA For even n: a(n) = A048766(n^2), for odd n: a(n) = A000196(n^3). - Antti Karttunen, May 28 2017 MATHEMATICA 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; Table[d[w], {w, 1, 150}] Table[If[EvenQ[n], Floor[n^(2/3)], Floor[n^(3/2)]], {n, 70}] (* Harvey P. Dale, Dec 28 2018 *) PROG (Scheme) (define (A095396 n) (if (even? n) (A048766 (* n n)) (A000196 (* n n n)))) ;; Antti Karttunen, May 28 2017 CROSSREFS Cf. A000196, A007320, A048766, A094683, A094716, A095397, A095398. Sequence in context: A293559 A094683 A094685 * A051308 A257327 A074642 Adjacent sequences:  A095393 A095394 A095395 * A095397 A095398 A095399 KEYWORD nonn AUTHOR Labos Elemer, Jun 18 2004 EXTENSIONS Name simplified by Antti Karttunen, May 28 2017 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.

Last modified January 26 22:05 EST 2022. Contains 350601 sequences. (Running on oeis4.)