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.

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

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

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

Adjacent sequences: A191283 A191284 A191285 * A191287 A191288 A191289

Keyword

nonn

Author

Clark Kimberling, May 29 2011

Status

approved