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

Author

Christian G. Bower, Feb 15 1999

Keywords

• nonn
• easy

Crossrefs

Cf. A037084, A039500-A039504.

Programs

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 *)