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

 

Logo


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.

License Agreements, Terms of Use, Privacy Policy. .

Last modified August 23 22:20 EDT 2019. Contains 326254 sequences. (Running on oeis4.)