login
A008903
x->x/2 if x even, x->3x-1 if x odd.
0
100, 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, 110, 55, 164, 82, 41, 122, 61, 182, 91
OFFSET
0,1
REFERENCES
R. K. Guy, Unsolved Problems in Number Theory, E16.
LINKS
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).
FORMULA
a(n)=A003124(n), n>0. - R. J. Mathar, May 26 2008
MATHEMATICA
NestList[If[EvenQ[#], #/2, 3#-1]&, 100, 120] (* or *) PadRight[{100}, 120, {17, 50, 25, 74, 37, 110, 55, 164, 82, 41, 122, 61, 182, 91, 272, 136, 68, 34}] (* Harvey P. Dale, May 20 2021 *)
CROSSREFS
Sequence in context: A077489 A371993 A153674 * A033420 A234322 A260707
KEYWORD
nonn
AUTHOR
STATUS
approved