|
| |
|
|
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}.
|
|
0
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,3
|
|
|
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}]
|
|
|
CROSSREFS
| Cf. A007320, A094683, A094716, A094396-A094401.
Sequence in context: A065171 A026192 A026142 * A068504 A080965 A083703
Adjacent sequences: A095396 A095397 A095398 * A095400 A095401 A095402
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Labos E. (labos(AT)ana.sote.hu), Jun 18 2004
|
| |
|
|
