|
Search: id:A095384
|
|
|
| A095384 |
|
Number of different initial values for 3x+1 trajectories started with initial values not exceeding 2^n and in which the peak values are also not larger than 2^n. |
|
+0
1
|
|
| 2, 3, 4, 10, 13, 33, 55, 112, 181, 352, 580, 1072, 2127, 6792, 13067, 25906, 51447, 104575, 208149, 415921
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
EXAMPLE
|
n=4: between iv={1,2,...,16} {2,8}U{3,5,6,10,12,16} provides
peak values smaller than or equal with 16, so a[4]=10=A087256(4)+4
|
|
MATHEMATICA
|
c[x_]:=c[x]=(1-Mod[x, 2])*(x/2)+Mod[x, 2]*(3*x+1); c[1]=1; fpl[x_]:=FixedPointList[c, x]; {$RecursionLimit=1000; m=0}; Table[Print[{xm-1, m}]; m=0; Do[If[ !Greater[Max[fpl[n]], 2^xm], m=m+1], {n, 1, 2^xm}], {xm, 1, 30}]
|
|
CROSSREFS
|
Cf. A087256, A095381, A095382.
Sequence in context: A100773 A131120 A115195 this_sequence A115899 A085934 A056701
Adjacent sequences: A095381 A095382 A095383 this_sequence A095385 A095386 A095387
|
|
KEYWORD
|
more,nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Jun 14 2004
|
|
|
Search completed in 0.002 seconds
|
