OFFSET
1,1
COMMENTS
A005383 is a subsequence: f(x) is applied just once.
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 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Alex Ratushnyak, Dec 25 2015
STATUS
approved