|
|
A213538
|
|
Maximum deviation from n in Collatz trajectory of n.
|
|
1
|
|
|
0, 1, 13, 3, 11, 10, 45, 7, 43, 9, 41, 11, 27, 38, 145, 15, 35, 34, 69, 19, 43, 30, 137, 23, 63, 25, 9205, 27, 59, 130, 9201, 31, 67, 33, 125, 35, 75, 50, 265, 39, 9191, 41, 153, 43, 91, 114, 9185, 47, 99, 49, 181, 51, 107, 9178, 9177, 55, 139, 57, 245, 100, 123
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
COMMENTS
|
Assuming Collatz trajectory ends with 1 and also a(1)=0.
|
|
LINKS
|
|
|
EXAMPLE
|
a(3)=13 because the number furthest to 3 in Collatz trajectory of 3 is 16.
|
|
MATHEMATICA
|
Collatz[n_] := NestWhileList[If[EvenQ[#], #/2, 3 # + 1] &, n, # > 1 &]; Join[{0}, Table[Max[Rest[Abs[Collatz[n] - n]]], {n, 2, 100}]] (* T. D. Noe, Mar 04 2013 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|