Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A129675
Inverse permutation to A129674.
4
3, 2, 1, 5, 7, 4, 6, 9, 15, 8, 11, 10, 12, 14, 13, 17, 21, 16, 19, 18, 20, 23, 27, 22, 24, 26, 25, 29, 31, 28, 30, 33, 37, 32, 35, 34, 36, 39, 43, 38, 40, 42, 41, 45, 51, 44, 47, 46, 48, 50, 49, 53, 55, 52, 54, 57, 63, 56, 59, 58, 60, 62, 61, 65, 69, 64, 67, 66, 68, 71, 75, 70
OFFSET
1,1
COMMENTS
The inversion maintains the cyclic characteristics as described in A129674.
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(A129674)
CROSSREFS
Inverse of A129674, Cf. A128754, A128755, A129679 and A001969.
Sequence in context: A092879 A073370 A208511 * A232206 A209559 A081277
KEYWORD
nonn,base
AUTHOR
Ferenc Adorjan (fadorjan(AT)freemail.hu or ferencadorjan(AT)gmail.com), May 01 2007
STATUS
approved