login
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.
2
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,2
COMMENTS
See A191323.
LINKS
EXAMPLE
1 ->2 -> 3,4 -> 5,7,9 ->
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 *)
CROSSREFS
Cf. A191323.
Sequence in context: A338973 A084176 A059389 * A064683 A317468 A329481
KEYWORD
nonn
AUTHOR
Clark Kimberling, May 30 2011
STATUS
approved