OFFSET
1,1
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..238
Eric Weisstein's World of Mathematics, Collatz Problem
Wikipedia, Collatz conjecture
MATHEMATICA
f[n_] := If[ OddQ@n, 3 n + 1, n/2]; NestWhileList[f, 3711, # > 1 &] (* modified by Robert G. Wilson v, Aug 23 2010 *)
CROSSREFS
KEYWORD
nonn,fini,full,easy
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jul 20 2010
STATUS
approved