A095399 Modified juggler modified further: 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}.

1, 1, 4, 2, 8, 3, 13, 4, 18, 5, 24, 6, 30, 7, 36, 8, 43, 8, 50, 9, 57, 10, 65, 10, 73, 11, 81, 12, 89, 12, 97, 13, 105, 14, 114, 14, 123, 15, 132, 15, 141, 16, 150, 17, 160, 17, 169, 18, 179, 18, 189, 19, 199, 19, 209, 20, 219, 21, 229, 21, 240, 22, 250, 22, 261, 23, 272, 23

Offset: 1

Author

Labos Elemer, Jun 18 2004

Keywords

• nonn

Crossrefs

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

Programs

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; Table[e[w], {w, 1, 150}]