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