A033968 Trajectory of 1 under map n->23n+1 if n odd, n->n/2 if n even

1, 24, 12, 6, 3, 70, 35, 806, 403, 9270, 4635, 106606, 53303, 1225970, 612985, 14098656, 7049328, 3524664, 1762332, 881166, 440583, 10133410, 5066705, 116534216, 58267108, 29133554, 14566777

Offset

0,2

Links

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

Maple

N:= 100: # to get a(0) to a(N)
A[0]:= 1:
for n from 1 to N do
if A[n-1]::even then A[n]:= A[n-1]/2
else A[n]:= 23*A[n-1]+1
fi
od:
seq(A[i], i=0..N); # Robert Israel, Nov 21 2014

Mathematica

NestList[If[OddQ[#], 23#+1, #/2]&, 1, 30] (* Harvey P. Dale, Sep 06 2021 *)

Crossrefs

Sequence in context: A267024 A259337 A118983 * A033344 A228437 A079341

Adjacent sequences: A033965 A033966 A033967 * A033969 A033970 A033971

Keyword

nonn

Author

N. J. A. Sloane.

Status

approved