OFFSET
1,2
COMMENTS
a(n) = number of iterations of the Collatz 3*x+1 map applied to n until the conjectured 4,2,1 sequence is reached.
REFERENCES
C. A. Pickover, Dr. Googols wundersame Welt der Zahlen, Deutscher Taschenbuch Verlag, Kap. 14, pp. 87, 193. German translation of: Wonders of numbers - Adventures in Mathematics, Mind and Meaning, Oxford University Press 2003.
LINKS
Ken Conrow, Collatz 3n+1 Problem.
Eric Weisstein's World of Mathematics, Collatz Problem
FORMULA
a(n) = A006577(n) - 2, n >= 3, a(1)=1, a(2)=2.
EXAMPLE
a(1)=1 because the sequence for n=1 is 1,4,2,1.
a(4)=0 from 4,2,1.
a(7)=14 from 7, 22, 11, 34, 17, 52, 26, 13, 40, 20, 10, 5, 16, 8, 4, 2, 1.
MATHEMATICA
f[n_] := If[EvenQ[n], n/2, 3 n + 1];
a[n_] := Length[NestWhileList[f, n, {#1, #2, #3} != {4, 2, 1}&, 3]] - 3;
Table[a[n], {n, 1, 100}] (* Jean-François Alcover, Aug 08 2022 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Wolfdieter Lang, Oct 31 2005
STATUS
approved