A266234 Primes representable as f(f(f(...f(p)...))) where p is a prime and f(x) = x*2 - 1.

3, 5, 13, 17, 37, 41, 61, 73, 89, 97, 113, 157, 193, 233, 241, 257, 277, 281, 313, 337, 353, 397, 401, 409, 421, 433, 449, 457, 521, 541, 577, 593, 601, 613, 641, 661, 673, 733, 757, 761, 769, 877, 929, 953, 997, 1009, 1049, 1093, 1129, 1153, 1201, 1213, 1237

Offset: 1

Author

Alex Ratushnyak, Dec 25 2015

Keywords

• nonn

Comments

A005383 is a subsequence: f(x) is applied just once.

Crossrefs

Cf. A000040, A005383, A266233.

Programs

Mathematica

Take[Union@ Flatten[Table[Nest[2 # - 1 &, Prime@ n, #], {n, 120}] & /@ Range@ 120] /. n_ /; CompositeQ@ n -> Nothing, 53] (* Michael De Vlieger, Jan 06 2016 *)