A191281 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, 24, 26, 28, 31, 32, 43, 48, 52, 56, 57, 62, 64, 86, 96, 104, 112, 114, 124, 128, 133, 157, 172, 183, 192, 208, 224, 228, 241, 248, 256, 266, 314, 344, 366, 384, 416, 448, 456, 482, 496, 512, 532, 553, 628, 651, 688, 732, 757, 768, 832, 896, 912, 931, 964, 992, 993, 1024, 1064, 1106, 1256, 1302

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,8,13 ->

Mathematica

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

Crossrefs

Cf. A191203.

Sequence in context: A265347 A205591 A191282 * A032900 A370684 A268415

Adjacent sequences: A191278 A191279 A191280 * A191282 A191283 A191284

Keyword

nonn

Author

Clark Kimberling, May 29 2011

Status

approved