A191282 Increasing sequence generated by these rules: a(1)=1, and if x is in a then 2x and x^2+x+1 are in a.

1, 2, 3, 4, 6, 7, 8, 12, 13, 14, 16, 21, 24, 26, 28, 32, 42, 43, 48, 52, 56, 57, 64, 73, 84, 86, 96, 104, 112, 114, 128, 146, 157, 168, 172, 183, 192, 208, 211, 224, 228, 256, 273, 292, 314, 336, 344, 366, 384, 416, 422, 448, 456, 463, 512, 546, 584, 601, 628, 672, 688, 703, 732, 768, 813, 832, 844, 896, 912, 926, 1024, 1057, 1092

Offset

1,2

Comments

See A191203.

Links

Ivan Neretin, Table of n, a(n) for n = 1..10000

Example

1 -> 2,3 -> 4,6,7,13 ->

Mathematica

g = 11; Union[Flatten[NestList[{2 #, #^2 + # + 1} &, 1, g]]]
(* A191282; use g>10 to get all of first 60 terms *)

Crossrefs

Cf. A191203.

Sequence in context: A016027 A265347 A205591 * A191281 A032900 A370684

Adjacent sequences: A191279 A191280 A191281 * A191283 A191284 A191285

Keyword

nonn

Author

Clark Kimberling, May 29 2011

Status

approved