1,2

Take the sequence of natural numbers:

s0=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,

Move the first term s(1)=1 to 2*1 places to the right:

s1=2,3,1,4,5,6,7,8,9,10,11,12,13,14,15,16,

Move the first term s(1)=2 to 2*2 places to the right:

s2=3,1,4,5,2,6,7,8,9,10,11,12,13,14,15,16,

Repeating the procedure we get successively:

s3=1,4,5,2,6,7,3,8,9,10,11,12,13,14,15,16,

s4=4,5,1,2,6,7,3,8,9,10,11,12,13,14,15,16,

s5=5,1,2,6,7,3,8,9,4,10,11,12,13,14,15,16,

s6=1,2,6,7,3,8,9,4,10,11,5,12,13,14,15,16,

.......................................................................

s100=8,3,1,2,24,25,4,5,12,7,6,26,9,27,13,28,29,10,14,30,31,15,11,

32,33,16,34,35,17,36,37,18,38,39,19,40,41,20,42,43,21,44,45,22,

46,47,23,48,49,50,51,52,53,54,55,56,57,58,59,60,

The sequence A104706 gives the first terms in the rearrangements s0,s1,s2,...,s100. Cf. A104705

a(n)=A028920(2n)-1. - Benoit CLOITRE, Mar 09 2007

s=Range[100]; bb={1}; Do[s=Drop[Insert[s, s[[1]], 2+2s[[1]]], 1]; bb=Append[bb, s[[1]]], {i, 100}]; bb

Cf. A104705.

Sequence in context: A096180 A034867 A055446 this_sequence A094137 A038802 A092942

Adjacent sequences: A104703 A104704 A104705 this_sequence A104707 A104708 A104709

easy,nonn

Zak Seidov (zakseidov(AT)yahoo.com), Mar 19 2005