%I #8 Jan 09 2016 14:28:09
%S 3,5,13,17,37,41,61,73,89,97,113,157,193,233,241,257,277,281,313,337,
%T 353,397,401,409,421,433,449,457,521,541,577,593,601,613,641,661,673,
%U 733,757,761,769,877,929,953,997,1009,1049,1093,1129,1153,1201,1213,1237
%N Primes representable as f(f(f(...f(p)...))) where p is a prime and f(x) = x*2 - 1.
%C A005383 is a subsequence: f(x) is applied just once.
%t Take[Union@ Flatten[Table[Nest[2 # - 1 &, Prime@ n, #], {n, 120}] & /@ Range@ 120] /. n_ /; CompositeQ@ n -> Nothing, 53] (* _Michael De Vlieger_, Jan 06 2016 *)
%Y Cf. A000040, A005383, A266233.
%K nonn
%O 1,1
%A _Alex Ratushnyak_, Dec 25 2015
|