This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A118320 Inverse permutation to sequence A118319. 2
 1, 3, 2, 5, 7, 6, 4, 9, 11, 10, 13, 15, 14, 12, 8, 17, 19, 18, 21, 23, 22, 20, 25, 27, 26, 29, 31, 30, 28, 24, 16, 33, 35, 34, 37, 39, 38, 36, 41, 43, 42, 45, 47, 46, 44, 40, 49, 51, 50, 53, 55, 54, 52, 57, 59, 58, 61, 63, 62, 60, 56, 48, 32, 65, 67, 66, 69, 71, 70, 68, 73, 75 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 COMMENTS Sequence is a permutation of the positive integers. Is this the same as A108918? - Joerg Arndt and Charles R Greathouse IV, Jan 31 2012 LINKS MAPLE A007814 := proc(n) local a, nshf ; a := 0 ; nshf := n ; while nshf mod 2 = 0 do nshf := nshf/2 ; a := a+1 ; od; RETURN(a) ; end: A118319 := proc(nmin) local a, anxt, i, n, j ; a := [1] ; while nops(a) < nmin do n := nops(a)+1 ; i := 2^A007814(n); anxt := 0 ; while i > 0 do anxt := anxt+1 ; while anxt in a do anxt := anxt+1 ; od ; i := i-1; od ; a := [op(a), anxt] ; od; a ; end: A118320 := proc(nmin) local n, i, a, a19 ; a := [] ; a19 := A118319(nmin) ; i := 1 ; while member(i, a19, 'n') do a := [op(a), n] ; i := i+1 ; od: a; end: A118320(100) ; # R. J. Mathar, Sep 06 2007 CROSSREFS Cf. A118319. Sequence in context: A069196 A222209 A108918 * A316472 A082334 A294371 Adjacent sequences:  A118317 A118318 A118319 * A118321 A118322 A118323 KEYWORD easy,nonn AUTHOR Leroy Quet, Apr 23 2006 EXTENSIONS More terms from R. J. Mathar, Sep 06 2007 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified September 20 21:06 EDT 2019. Contains 327247 sequences. (Running on oeis4.)