login
A178931
This sequence S is generated by the following rules: 2 is in S, and if n is in S, then floor[(3n-1)/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
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
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
Sequence in context: A184420 A136496 A183173 * A243184 A076991 A130205
KEYWORD
nonn
AUTHOR
Clark Kimberling, Dec 30 2010
STATUS
approved