login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A128756 Permutation sequence related to lucky numbers A000959: starting with the integers, for n = 1, 2, 3, ... swap the n-th and the (n-g)-th element, where g = A000959(n+1) - A000959(n) - 1. 6
6, 3, 14, 7, 2, 11, 12, 9, 1, 5, 4, 15, 20, 17, 26, 21, 22, 23, 36, 10, 19, 31, 8, 13, 32, 27, 16, 29, 34, 33, 48, 30, 28, 39, 42, 41, 44, 35, 37, 43, 24, 45, 52, 47, 50, 51, 58, 55, 25, 67, 56, 53, 38, 63, 62, 54, 64, 61, 40, 77, 66, 71, 68, 18, 70, 59, 78, 79, 74, 85, 65, 46 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,1
COMMENTS
Similarly to A128754, this sequence also shows the characteristics of an "infinite braid".
LINKS
PROG
(PARI) {vperm(z)=local(n, j, g); /* Permutation of positive integers: starting with the sequence of positive integers, for i = 1, 2, 3, ..., swap the i-th term with max(i-g(i), 1)-th term, where g(i) = z[i+1]-z[i]-1. */
j=length(z)-1; n=j-z[j]+z[j-6]; v=[1..j];
for(i=1, j, g=min(z[i+1]-z[i]-1, i-1); [v[i], v[i-g]]=[v[i-g], v[i]]);
return(v[1..n])}
a=vperm(A000959_upto(10^3))
CROSSREFS
Inverse of A128757. Cf. A128754, A128755 and A000959.
Sequence in context: A050132 A320038 A214498 * A345056 A049784 A341746
KEYWORD
nonn
AUTHOR
Ferenc Adorjan (fadorjan(AT)freemail.hu or ferencadorjan(AT)gmail.com), Mar 24 2007
EXTENSIONS
Edited by M. F. Hasler, Jan 09 2020
STATUS
approved

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 29 04:23 EDT 2024. Contains 371264 sequences. (Running on oeis4.)