|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
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:
|
|
MATHEMATICA
|
NestList[If[OddQ[#], 23#+1, #/2]&, 1, 30] (* Harvey P. Dale, Sep 06 2021 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|