login
A191286
Increasing sequence generated by these rules: a(1)=1, and if x is in a then 3x and 1+x^2 are in a.
2
1, 2, 3, 5, 6, 9, 10, 15, 18, 26, 27, 30, 37, 45, 54, 78, 81, 82, 90, 101, 111, 135, 162, 226, 234, 243, 246, 270, 303, 325, 333, 405, 486, 677, 678, 702, 729, 730, 738, 810, 901, 909, 975, 999, 1215, 1370, 1458, 2026, 2031, 2034, 2106, 2187, 2190, 2214, 2430, 2703, 2727, 2917, 2925, 2997, 3645, 4110, 4374
OFFSET
1,2
COMMENTS
See A191203.
LINKS
EXAMPLE
1 -> 2,3 -> 5,6,9,10 ->
MATHEMATICA
g = 10; Union[Flatten[NestList[{3 #, 1 + #^2} &, 1, g]]]
(* A191286; use g>9 to get all of first 60 terms *)
CROSSREFS
Cf. A191203.
Sequence in context: A133030 A014822 A018462 * A018659 A018365 A018278
KEYWORD
nonn
AUTHOR
Clark Kimberling, May 29 2011
STATUS
approved