login
A129677
Inverse permutation to A129676.
4
2, 6, 1, 4, 3, 5, 8, 12, 7, 9, 11, 10, 14, 20, 13, 16, 15, 17, 19, 18, 22, 24, 21, 23, 26, 30, 25, 28, 27, 29, 32, 36, 31, 33, 35, 34, 38, 40, 37, 39, 42, 48, 41, 44, 43, 45, 47, 46, 50, 54, 49, 52, 51, 53, 56, 60, 55, 57, 59, 58, 62, 68, 61, 64, 63, 65, 67, 66, 70, 72, 69, 71
OFFSET
1,1
COMMENTS
The inversion maintains the cyclic characteristics described in A129676.
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(A129676)
CROSSREFS
Inverse of A129676, cf. A128754, A128755, A129681 and A000069.
Sequence in context: A156146 A192043 A154584 * A324033 A077761 A220406
KEYWORD
nonn,base
AUTHOR
Ferenc Adorjan (fadorjan(AT)freemail.hu or ferencadorjan(AT)gmail.com), May 01 2007
STATUS
approved