OFFSET
1,1
COMMENTS
This sequence results from flattening and sorting the tree at A183212. Complement of A183213, obtained from the tree at A183211.
Sequence A117943 is the characteristic sequence of this one. - M. F. Hasler, Mar 07 2015
LINKS
Ivan Neretin, Table of n, a(n) for n = 1..10000
FORMULA
(See the Mathematica code.)
MATHEMATICA
nn=200; t={2}; t0=t; While[t=Select[Union[t, Floor[(3*t-1)/2], 3*t], #<=nn &]; t0 != t, t0=t]; t
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Dec 30 2010
STATUS
approved