A039504 Odd numbers from A039501.

5, 7, 9, 13, 19, 27, 35, 47, 51, 63, 75, 81, 89, 93, 107, 119, 121, 125, 133, 139, 143, 149, 159, 161, 167, 177, 181, 187, 191, 199, 203, 215, 223, 237, 241, 251, 255, 265, 271, 281, 285, 287, 297, 299, 317, 323, 333, 335, 341, 353, 355, 357, 361, 371, 375

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, 375, 2], colln[#] == 5 &] (* Jayanta Basu, Jun 06 2013 *)