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,2

Links

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

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

Crossrefs

Cf. A037084, A039500-A039505.

Sequence in context: A046159 A022410 A146254 * A276971 A366813 A192161

Adjacent sequences: A039500 A039501 A039502 * A039504 A039505 A039506

Keyword

nonn,easy

Author

Christian G. Bower, Feb 15 1999

Status

approved