login
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.
2
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
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
KEYWORD
nonn
AUTHOR
Clark Kimberling, May 29 2011
STATUS
approved