|
|
A039503
|
|
Odd numbers from A039500.
|
|
1
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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 A192161 A199262
Adjacent sequences: A039500 A039501 A039502 * A039504 A039505 A039506
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
Christian G. Bower, Feb 15 1999
|
|
STATUS
|
approved
|
|
|
|