A039505 Odd numbers from A039502.

17, 21, 23, 25, 31, 33, 37, 41, 45, 49, 55, 61, 67, 73, 83, 91, 99, 109, 111, 117, 123, 131, 147, 153, 163, 165, 175, 179, 185, 195, 197, 209, 213, 219, 221, 225, 229, 233, 239, 243, 247, 257, 261, 263, 267, 277, 279, 291, 293, 295, 305, 311, 313, 319, 321

Offset

1,1

Links

Table of n, a(n) for n=1..55.

Mathematica

colln[n_]:= NestWhile[If[EvenQ[#], #/2, 3#-1] &, n, FreeQ[{1, 5, 17}, #] &]; Select[Range[1, 321, 2], colln[#] == 17 &] (* Jayanta Basu, Jun 06 2013 *)

Crossrefs

Cf. A037084, A039500-A039504.

Sequence in context: A069961 A140146 A039502 * A166875 A282109 A373583

Adjacent sequences: A039502 A039503 A039504 * A039506 A039507 A039508

Keyword

nonn,easy

Author

Christian G. Bower, Feb 15 1999

Status

approved