|
Search: id:A087262
|
|
|
| A087262 |
|
Integer quotient of largest and initial values in 3x+1 iteration, started at n. |
|
+0
1
|
|
| 1, 1, 5, 1, 3, 2, 7, 1, 5, 1, 4, 1, 3, 3, 10, 1, 3, 2, 4, 1, 3, 2, 6, 1, 3, 1, 341, 1, 3, 5, 297, 1, 3, 1, 4, 1, 3, 2, 7, 1, 225, 1, 4, 1, 3, 3, 196, 1, 3, 1, 4, 1, 3, 170, 167, 1, 3, 1, 5, 2, 3, 148, 146, 1, 3, 1, 4, 1, 3, 2, 130, 1, 126, 1, 4, 1, 3, 3, 10, 1, 3, 112, 111, 1, 3, 2, 6, 1, 3, 1, 101
(list; graph; listen)
|
|
|
OFFSET
|
1,3
|
|
|
COMMENT
|
Remarkably often, several consecutive terms are identical or close, showing closeness of peaks too: at n=107-111, a(n)=83-86.
|
|
FORMULA
|
a(n)=Floor[A025586(n)/n]
|
|
EXAMPLE
|
If a(n)=1, then the peak is the start-value.
It is conjectured that if peak/initial value is an integer then it equals 1.
|
|
MATHEMATICA
|
c[x_] := (1-Mod[x, 2])*(x/2)+Mod[x, 2]*(3*x+1)c[1]=1; fpl[x_] := Delete[FixedPointList[c, x], -1] Table[Floor[Max[fpl[w]]/w//N], {w, 1, 256}]
|
|
CROSSREFS
|
Cf. A025586, A056959.
Sequence in context: A136744 A068237 A083345 this_sequence A082343 A057778 A071545
Adjacent sequences: A087259 A087260 A087261 this_sequence A087263 A087264 A087265
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Sep 11 2003
|
|
|
Search completed in 0.002 seconds
|
