

A178931


This sequence S is generated by the following rules: 2 is in S, and if n is in S, then floor[(3n1)/2] and 3n are in S.


6



2, 6, 8, 11, 16, 18, 23, 24, 26, 33, 34, 35, 38, 48, 49, 50, 52, 54, 56, 69, 71, 72, 73, 74, 77, 78, 80, 83, 99, 102, 103, 105, 106, 107, 109, 110, 114, 115, 116, 119, 124, 144, 147, 148, 150, 152, 154, 156, 157, 158, 160, 162, 163, 164, 168, 170, 172, 173, 178, 185
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS

This sequence results from flattening and sorting the tree at A183212. Complement of A183213, obtained from the tree at A183211.


LINKS



FORMULA

(See the Mathematica code.)


MATHEMATICA

nn=200; t={2}; t0=t; While[t=Select[Union[t, Floor[(3*t1)/2], 3*t], #<=nn &]; t0 != t, t0=t]; t


CROSSREFS



KEYWORD

nonn


AUTHOR



STATUS

approved



