OFFSET
0,1
REFERENCES
Richard K. Guy, Unsolved Problems in Number Theory, E16.
H.-O. Peitgen et al., Chaos and Fractals, Springer, p. 33.
EXAMPLE
17 is odd, so the next term is 3 * 17 - 1 = 50.
50 is even, so the next term is 50/2 = 25.
MATHEMATICA
Abs[NestList[If[EvenQ[#], #/2, 3# + 1]&, -17, 100]] (* Alonso del Arte, May 19 2015 *)
PROG
(PARI) a=34; A003124=vector(100, i, a=if(bittest(a, 0), 3*a-1, a/2)) \\ M. F. Hasler, Aug 29 2015
(PARI) A003124(n, a=17)={for(i=1, n%17, a=if(bittest(a, 0), 3*a-1, a\2)); a} \\ M. F. Hasler, Aug 29 2015
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
STATUS
approved