fractal (?) sequence with "known" fixed points

wouter meeussen wouter.meeussen at pandora.be
Fri May 30 17:50:48 CEST 2003


1, 2, 3, 4, 5, 7, 9, 13, 17, 25, 33, 49, 65, 97, 129, 193, 257, 385, 513,
769, 1025, 1537, 2049, 3073, 4097, 6145, 8193, 12289, 16385, 24577

are fixed points of the fractal (?) sequence generated by

Nest[Flatten[{#, (Length[#] + RotateRight @ Range[Length[#], 1, -1])[[#]]}]
&, {1}, 15];
(a variant on Gray code A003100)
or 1, 2, 3, 4, 5, 8, 7, 6, 9, 16, 15, 14, 13, 10, 11, 12, 17, 32, 31, 30,
29,
26, 27, 28, 25, 18, 19, 20, 21, 24, 23, 22, ...

the fixed points closely resemble
 A078621
Sequence :  1,5,9,11,13,17,25,33,49,65,97,129,193,257,385,513,769,1025,
1537,2049,3073,4097,6145,8193,12289,16385,24577 ..

but the logic escapes me.

Any help out there?

W.










More information about the SeqFan mailing list