|
|
A368301
|
|
Main diagonal of A365991: the n-th term in the trajectory of n under the A185452 map.
|
|
4
|
|
|
1, 1, 4, 3, 208, 1, 73, 2, 573, 13, 183, 1, 52, 3583, 4, 3, 108, 6999, 2, 83, 4974, 13998, 34177, 3, 378, 208, 108, 34177, 417208, 8, 903, 3, 52, 27, 213608, 104302, 1296224, 8, 68933, 13, 11253583, 1158333, 43, 65189, 30792, 9947104, 40507, 2, 6573998, 27573
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
A368301[n_]:=Nest[If[OddQ[#], (5#+1)/2, #/2]&, n, n-1]; Array[A368301, 100]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|