A183211 -id:A183211 - cp's OEIS frontend

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

Clark Kimberling, Dec 30 2010

nonn

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

Ivan Neretin, Table of n, a(n) for n = 1..10000

Cf. A183213, A183212.

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

(See the Mathematica code.)

A183212 Second of two trees generated by floor[(3n-1)/2].

Original entry on oeis.org

2, 6, 8, 18, 11, 24, 26, 54, 16, 33, 35, 72, 38, 78, 80, 162, 23, 48, 49, 99, 52, 105, 107, 216, 56, 114, 116, 234, 119, 240, 242, 486, 34, 69, 71, 144, 73, 147, 148, 297, 77, 156, 157, 315, 160, 321, 323, 648, 83, 168, 170, 342

Offset: 1

Clark Kimberling, Dec 30 2010

See the comments at A183211, which is the mate for this tree.

			First four levels of the tree:
.......................2
.......................6
.............8...................18
...........11..24.............26....54

Ivan Neretin, Table of n, a(n) for n = 1..8192

Cf. A183211.

a = {2, 6}; row = {a[[-1]]}; Do[a = Join[a, row = Flatten[{Quotient[3 # - 1, 2], 3 #} & /@ row]], {n, 5}]; a (* Ivan Neretin, May 25 2015 *)

A183213 Ordering of the numbers in the set S generated by these rules: 1 is in S, and if n is in S, then floor[(3n-1)/2] and 3n are in S.

Original entry on oeis.org

1, 3, 4, 5, 7, 9, 10, 12, 13, 14, 15, 17, 19, 20, 21, 22, 25, 27, 28, 29, 30, 31, 32, 36, 37, 39, 40, 41, 42, 43, 44, 45, 46, 47, 51, 53, 55, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 70, 75, 76, 79, 81, 82, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 100, 101, 104, 108, 111, 112, 113, 117, 118, 120, 121, 122, 123, 125, 126, 127, 128, 129, 130, 131, 132, 133, 134, 135

Offset: 1

Clark Kimberling, Dec 30 2010

nonn

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

Ivan Neretin, Table of n, a(n) for n = 1..10000

Cf. A183211, A178931.

nn=200; t={1}; t0=t; While[t=Select[Union[t,Floor[(3*t-1)/2],3*t], #<=nn &]; t0 != t, t0=t]; t
f[s_List] := Select[ Union@ Join[s, Floor[(3 s - 1)/2], 3 s], # < 201 &]; NestWhile[f, {1}, UnsameQ, All]

(See the Mathematica code.)

cp's OEIS Frontend

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.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

Formula

A183212 Second of two trees generated by floor[(3n-1)/2].

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A183213 Ordering of the numbers in the set S generated by these rules: 1 is in S, and if n is in S, then floor[(3n-1)/2] and 3n are in S.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

Formula