A213538 Maximum deviation from n in Collatz trajectory of n.

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

Offset

1,3

Comments

Assuming Collatz trajectory ends with 1 and also a(1)=0.

Links

T. D. Noe, Table of n, a(n) for n = 1..10000

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

Cf. A070165.

Sequence in context: A010221 A113172 A128154 * A264971 A107806 A138965

Adjacent sequences: A213535 A213536 A213537 * A213539 A213540 A213541

Keyword

nonn

Author

Jayanta Basu, Mar 03 2013

Status

approved