A179623 Collatz trajectory starting at 3711.
3711, 11134, 5567, 16702, 8351, 25054, 12527, 37582, 18791, 56374, 28187, 84562, 42281, 126844, 63422, 31711, 95134, 47567, 142702, 71351, 214054, 107027, 321082, 160541, 481624, 240812, 120406, 60203, 180610, 90305, 270916, 135458, 67729
Offset: 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
Crossrefs
Cf. A161021.
Programs
-
Mathematica
f[n_] := If[ OddQ@n, 3 n + 1, n/2]; NestWhileList[f, 3711, # > 1 &] (* modified by Robert G. Wilson v, Aug 23 2010 *)