login
A128757
Inverse permutation to A128756.
4
9, 5, 2, 11, 10, 1, 4, 23, 8, 20, 6, 7, 24, 3, 12, 27, 14, 64, 21, 13, 16, 17, 18, 41, 49, 15, 26, 33, 28, 32, 22, 25, 30, 29, 38, 19, 39, 53, 34, 59, 36, 35, 40, 37, 42, 72, 44, 31, 95, 45, 46, 43, 52, 56, 48, 51, 75, 47, 66, 85, 58, 55, 54, 57, 71, 61, 50, 63, 87, 65, 62, 78
OFFSET
1,1
COMMENTS
Seemingly the inversion maintains the characteristics of being an "infinite braid".
PROG
(PARI) {pinverse(v)= /* Permutation inverse of a positive sequence */
local(n, m, x); n=matsize(v)[2]; x=vector(n);
for(i=1, n, if(v[i]<=n, x[v[i]]=i)); return(x)}
a=pinverse(A128756)
CROSSREFS
Inverse of A128756, cf. A128754, A128755 and A000959.
Sequence in context: A075838 A094129 A021917 * A195599 A021516 A158270
KEYWORD
nonn
AUTHOR
Ferenc Adorjan (fadorjan(AT)freemail.hu or ferencadorjan(AT)gmail.com), Mar 24 2007
STATUS
approved