|
Search: id:A095397
|
|
|
| A095397 |
|
Modified juggler map: see A095396. Largest value in trajectory of started n under the juggler map of A095396. |
|
+0
2
|
|
| 1, 2, 36, 4, 36, 36, 36, 8, 140, 10, 36, 36, 46, 36, 58, 36, 70, 36, 82, 36, 96, 36, 110, 24, 52214, 26, 140, 140, 156, 140, 172, 32, 2598, 34, 2978, 36, 86818724, 38, 233046, 40, 262, 42, 4710, 44, 5222, 46, 322, 48, 6352, 50, 364, 52, 7554, 54, 8210, 56, 430, 58
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
Parallel to A094716.
|
|
EXAMPLE
|
n=37: the trajectory is {37, 225, 3375, 196069, 86818724, 196068, 3374, 224, 36, 10, 4, 2, 1}, the peak is a[37]=86818724
|
|
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; fd[x_]:=Delete[FixedPointList[d, x], -1] Table[Max[fd[w]], {w, 1, m}]
|
|
CROSSREFS
|
Cf. A007320, A094683, A094716, A095396, A097398.
Sequence in context: A013551 A094716 A094725 this_sequence A073406 A096513 A037418
Adjacent sequences: A095394 A095395 A095396 this_sequence A095398 A095399 A095400
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Jun 18 2004
|
|
|
Search completed in 0.002 seconds
|
