A033969 Trajectory of 1 under map n->25n+1 if n odd, n->n/2 if n even

1, 26, 13, 326, 163, 4076, 2038, 1019, 25476, 12738, 6369, 159226, 79613, 1990326, 995163, 24879076, 12439538, 6219769, 155494226, 77747113, 1943677826, 971838913, 24295972826, 12147986413

Offset

0,2

Links

Robert Israel, Table of n, a(n) for n = 0..3698

Maple

f:= proc(n) if n::odd then 25*n+1 else n/2 fi end proc:
R:= 1: x:= 1:
for i from 1 to 100 do x:= f(x); R:= R, x od:
R; # Robert Israel, Oct 10 2024

Mathematica

NestList[If[OddQ[#], 25#+1, #/2]&, 1, 30] (* Harvey P. Dale, Sep 10 2024 *)

Crossrefs

Sequence in context: A033346 A158605 A040653 * A078547 A036168 A005606

Adjacent sequences: A033966 A033967 A033968 * A033970 A033971 A033972

Keyword

nonn

Author

N. J. A. Sloane

Status

approved