A191328 Increasing sequence generated by these rules: a(1)=1, and if x is in a then [5x/3] and [7x/3] are in a, where [ ]=floor.

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 13, 14, 15, 16, 18, 21, 23, 25, 26, 30, 32, 35, 37, 38, 41, 42, 43, 49, 50, 53, 58, 60, 61, 63, 68, 70, 71, 74, 81, 83, 86, 88, 95, 96, 98, 100, 101, 105, 113, 114, 116, 118, 123, 135, 138, 140, 142, 143, 146, 147, 158, 160, 163, 165, 166, 168, 172, 175, 188, 189, 190, 193, 196, 200, 205, 221, 224, 225

Offset: 1

Author

Clark Kimberling, May 30 2011

Keywords

• nonn

Comments

See A191323.

Examples

			1 ->2 -> 3,4 -> 5,7,9 ->
		

Links

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

Crossrefs

Cf. A191323.

Programs

Mathematica

h = 5; i = 0; j = 7; k = 0; f = 1; g = 15;
Union[Flatten[NestList[{Floor[h #/3] + i, Floor[j #/3] + k} &, f, g]]]
(* A191328 *)