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)).

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

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