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

1, 2, 4, 5, 11, 14, 16, 25, 32, 41, 47, 74, 95, 121, 122, 140, 196, 221, 256, 284, 362, 365, 419, 587, 625, 662, 767, 851, 1024, 1085, 1094, 1256, 1681, 1760, 1874, 1985, 2209, 2300, 2552, 3071, 3254, 3281, 3767, 5042, 5279, 5476, 5621, 5954, 6626, 6899, 7655, 9025, 9212, 9761, 9842, 11300, 14641, 14884, 15125, 15836

Offset

1,2

Comments

See A191203.

Links

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

Example

1 -> 2 -> 4,5 -> 11,14,16,25 ->

Mathematica

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

Crossrefs

Cf. A191203.

Sequence in context: A292412 A113733 A294434 * A370633 A256570 A284427

Adjacent sequences: A191286 A191287 A191288 * A191290 A191291 A191292

Keyword

nonn

Author

Clark Kimberling, May 29 2011

Status

approved