A190858 Integers in (-1+A002977)/2; contains A002977 as a proper subsequence.

1, 3, 4, 6, 7, 9, 10, 13, 15, 19, 21, 22, 27, 28, 31, 33, 39, 40, 42, 43, 45, 46, 55, 57, 58, 60, 63, 64, 67, 69, 79, 81, 82, 85, 87, 91, 93, 94, 96, 111, 115, 117, 118, 121, 123, 127, 129, 130, 135, 136, 139, 141, 159, 163, 165, 166, 171, 172, 175, 177, 183, 187, 189, 190, 193, 195, 202, 204, 223, 231, 235, 237, 238, 243, 244, 247, 249

Offset: 1

Author

Clark Kimberling, May 25 2011

Keywords

• nonn

Comments

See A190803.

Crossrefs

Cf. A190803, A002977, A190859.

Programs

Mathematica

h = 2; i = 1; j = 3; k = 1; f = 1; g = 9 ;
a = Union[Flatten[NestList[{h # + i, j # + k} &, f, g]]]  (* A002977 *)
b = (a - 1)/2; c = (a - 1)/3; r = Range[1, 300];
d = Intersection[b, r] (* A190858 *)
e = Intersection[c, r] (* A190859 *)