A183173 Ordering of the numbers in set S generated by these rules: 2 is in S, and if n is in S then floor(r*n) and floor(s*n) are in S, where r=sqrt(2) and s=r/(r-1).

2, 6, 8, 11, 15, 20, 21, 27, 28, 29, 37, 38, 39, 41, 51, 52, 53, 55, 57, 68, 71, 72, 73, 74, 77, 80, 92, 95, 96, 99, 100, 101, 103, 104, 108, 113, 126, 129, 130, 133, 134, 135, 139, 140, 141, 142, 145, 147, 152, 159, 174, 177, 178, 180, 182

Offset: 1

Author

Clark Kimberling, Dec 29 2010

Keywords

• nonn

Comments

The sequence results from flattening and sorting the tree at A183171. Complement of A183172, obtained from the tree at A183170.

Links

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

Crossrefs

Cf. A183171, A183172.

Programs

Mathematica

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

Formula

(See A183171, A183172.)

Extensions

Missing term 113 inserted by John W. Layman, Dec 29 2010