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

Crossrefs

Cf. A037084, A039500-A039505.

Sequence in context: A079523 A231271 A359198 * A097280 A155732 A218851

Adjacent sequences: A039501 A039502 A039503 * A039505 A039506 A039507

Keyword

nonn,easy

Author

Christian G. Bower, Feb 15 1999

Status

approved