|
| |
|
|
A081613
|
|
Length of iteration list when Collatz-function is iterated with initial value n!=A000142[n].
|
|
0
| |
|
|
1, 1, 2, 9, 11, 21, 21, 42, 45, 87, 67, 148, 211, 176, 265, 256, 260, 427, 426, 363, 388, 501, 490, 448, 450, 390, 560, 420, 518, 634, 445, 530, 535, 796, 951, 827, 814, 1070, 690, 729, 786, 910, 820, 1014, 1172, 1219, 997, 1328, 1331, 892, 1296
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,3
|
|
|
FORMULA
| a(n)=A008908(A000142(n))
|
|
|
EXAMPLE
| n = 6: list = {720, 360, 180, 90, 45, 136, 68, 34, 17, 52, 26, 13, 40, 20, 10, 5, 16, 8, 4, 2, 1 }
|
|
|
MATHEMATICA
| f[x_] := (1-Mod[x, 2])*(x/2)+(Mod[x, 2])*(3*x+1) f[1]=1; f0[x_] := FixedPointList[f, x] le[x_] := Length[FixedPointList[f, x]]-1 Table[le[w! ], {w, 1, 50}]
|
|
|
CROSSREFS
| Cf. A006370, A008908, A074472, A075484-A075488, A000142.
Sequence in context: A041099 A041581 A042463 * A115911 A065596 A042053
Adjacent sequences: A081610 A081611 A081612 * A081614 A081615 A081616
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Labos E. (labos(AT)ana.sote.hu), Apr 17 2003
|
| |
|
|
