[go: up one dir, main page]

login
A039505
Odd numbers from A039502.
11
17, 21, 23, 25, 31, 33, 37, 41, 45, 49, 55, 61, 67, 73, 83, 91, 99, 109, 111, 117, 123, 131, 147, 153, 163, 165, 175, 179, 185, 195, 197, 209, 213, 219, 221, 225, 229, 233, 239, 243, 247, 257, 261, 263, 267, 277, 279, 291, 293, 295, 305, 311, 313, 319, 321
OFFSET
1,1
MATHEMATICA
colln[n_]:= NestWhile[If[EvenQ[#], #/2, 3#-1] &, n, FreeQ[{1, 5, 17}, #] &]; Select[Range[1, 321, 2], colln[#] == 17 &] (* Jayanta Basu, Jun 06 2013 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Christian G. Bower, Feb 15 1999
STATUS
approved