A039503 Odd numbers from A039500.

1, 3, 11, 15, 29, 39, 43, 53, 57, 59, 65, 69, 71, 77, 79, 85, 87, 95, 97, 101, 103, 105, 113, 115, 127, 129, 135, 137, 141, 145, 151, 155, 157, 169, 171, 173, 183, 189, 193, 201, 205, 207, 211, 217, 227, 231, 235, 245, 249, 253, 259, 269, 273, 275, 283, 289

Offset: 1

Author

Christian G. Bower, Feb 15 1999

Keywords

• nonn
• easy

Crossrefs

Cf. A037084, A039500-A039505.

Programs

Mathematica

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