A190849 Integers in (A190807)/2; contains A190807 as a proper subsequence.
1, 2, 4, 5, 7, 8, 10, 11, 14, 16, 20, 22, 23, 28, 29, 32, 34, 40, 41, 43, 44, 46, 47, 56, 58, 59, 61, 64, 65, 68, 70, 80, 82, 83, 86, 88, 92, 94, 95, 97, 112, 116, 118, 119, 122, 124, 128, 130, 131, 136, 137, 140, 142, 160, 164, 166, 167, 172, 173, 176, 178, 184, 188, 190, 191, 194, 196, 203, 205, 224, 232, 236, 238, 239, 244, 245, 248
Offset: 1
Keywords
Programs
-
Mathematica
Intersection[Union[Flatten[NestList[{2 #, 3 # - 1} &, 1, 9]]]/2, Range[1, 300]]
Comments