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
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
KEYWORD
nonn
AUTHOR
Labos Elemer, Jun 18 2004
EXTENSIONS
Name simplified by Antti Karttunen, May 28 2017
STATUS
approved