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.

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

Author

Clark Kimberling, Dec 30 2010

Keywords

• nonn

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

Crossrefs

Cf. A183213, A183212.

Programs

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

Formula

(See the Mathematica code.)