A183172 Ordering of the numbers in set S generated by these rules: 1 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).

1, 3, 4, 5, 7, 9, 10, 12, 13, 14, 16, 17, 18, 19, 22, 23, 24, 25, 26, 30, 31, 32, 33, 34, 35, 36, 40, 42, 43, 44, 45, 46, 47, 48, 49, 50, 54, 56, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 69, 70, 75, 76, 78, 79, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 93

Offset

1,2

Comments

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

Links

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

Formula

See A183170.

Mathematica

nn=100; t={1}; 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

Crossrefs

Cf. A183170, A183173.

Sequence in context: A047251 A258932 A183213 * A136495 A184419 A285970

Adjacent sequences: A183169 A183170 A183171 * A183173 A183174 A183175

Keyword

nonn

Author

Clark Kimberling, Dec 28 2010

Status

approved