login
A033968
Trajectory of 1 under map n->23n+1 if n odd, n->n/2 if n even
1
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
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
KEYWORD
nonn
AUTHOR
STATUS
approved