|
Search: id:A081613
|
|
|
| A081613 |
|
Length of iteration list when Collatz-function is iterated with initial value n!=A000142[n]. |
|
+0
1
|
|
| 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; listen)
|
|
|
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 this_sequence A115911 A065596 A042053
Adjacent sequences: A081610 A081611 A081612 this_sequence A081614 A081615 A081616
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Apr 17 2003
|
|
|
Search completed in 0.002 seconds
|
