login
A190858
Integers in (-1+A002977)/2; contains A002977 as a proper subsequence.
3
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.
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
KEYWORD
nonn
AUTHOR
Clark Kimberling, May 25 2011
STATUS
approved