|
Search: id:A118320
|
|
| |
|
| 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; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
Sequence is a permutation of the positive integers.
|
|
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 (mathar(AT)strw.leidenuniv.nl), Sep 06 2007
|
|
CROSSREFS
|
Cf. A118319.
Sequence in context: A115966 A069196 A108918 this_sequence A082334 A110338 A013655
Adjacent sequences: A118317 A118318 A118319 this_sequence A118321 A118322 A118323
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
Leroy Quet (qq-quet(AT)mindspring.com), Apr 23 2006
|
|
EXTENSIONS
|
More terms from R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Sep 06 2007
|
|
|
Search completed in 0.002 seconds
|
