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,2

Comments

See A190803.

Links

Table of n, a(n) for n=1..77.

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 *)

Crossrefs

Cf. A190803, A002977, A190859.

Sequence in context: A094178 A085795 A068675 * A026315 A143264 A126332

Adjacent sequences: A190855 A190856 A190857 * A190859 A190860 A190861

Keyword

nonn

Author

Clark Kimberling, May 25 2011

Status

approved