|
Search: id:A095383
|
|
|
| A095383 |
|
Number of different initial values for 3x+1 trajectories started with initial values not exceeding 2^n and in which the peak values are larger than 2^n. |
|
+0
1
|
|
| 0, 1, 4, 6, 19, 31, 73, 144, 331, 672, 1468, 3024, 6065, 9592, 19701, 39630, 79625, 157569, 316139, 632655, 1264043
(list; graph; listen)
|
|
|
OFFSET
|
1,3
|
|
|
EXAMPLE
|
n=4: between iv={1,2,...,16} {7,9,11,13,14,15} provides
peak values larger than 16, so a[4]=6.
|
|
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: A034189 A024697 A024874 this_sequence A116383 A026521 A006534
Adjacent sequences: A095380 A095381 A095382 this_sequence A095384 A095385 A095386
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Jun 14 2004
|
|
|
Search completed in 0.003 seconds
|
