A033970 Trajectory of 1 under map n->27n+1 if n odd, n->n/2 if n even

1, 28, 14, 7, 190, 95, 2566, 1283, 34642, 17321, 467668, 233834, 116917, 3156760, 1578380, 789190, 394595, 10654066, 5327033, 143829892, 71914946, 35957473, 970851772, 485425886, 242712943, 6553249462

Offset

0,2

Links

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

Mathematica

NestList[If[EvenQ[#], #/2, 27#+1]&, 1, 30] (* Harvey P. Dale, Oct 17 2014 *)

Crossrefs

Sequence in context: A070659 A040760 A179066 * A033348 A040759 A212279

Adjacent sequences: A033967 A033968 A033969 * A033971 A033972 A033973

Keyword

nonn

Author

N. J. A. Sloane.

Status

approved