A008897 x->x/2 if x even, x->3x-1 if x odd.

83, 248, 124, 62, 31, 92, 46, 23, 68, 34, 17, 50, 25, 74, 37, 110, 55, 164, 82, 41, 122, 61, 182, 91, 272, 136, 68, 34, 17, 50, 25, 74, 37, 110, 55, 164, 82, 41, 122, 61, 182, 91, 272, 136, 68, 34, 17, 50, 25, 74, 37

Offset

0,1

Comments

Modified Collatz sequence beginning with 83 and using 3x-1 rather than 3x+1 for odd terms. [From Harvey P. Dale, May 08 2012]

References

R. K. Guy, Unsolved Problems in Number Theory, E16.

Links

Table of n, a(n) for n=0..50.

Index entries for linear recurrences with constant coefficients, signature (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1).

Mathematica

NestList[If[EvenQ[#], #/2, 3#-1]&, 83, 60] (* Harvey P. Dale, May 08 2012 *)

Crossrefs

Sequence in context: A033253 A141933 A238680 * A159071 A023284 A142025

Adjacent sequences: A008894 A008895 A008896 * A008898 A008899 A008900

Keyword

nonn

Author

N. J. A. Sloane.

Status

approved