A128755 Inverse of A128754.
7, 8, 2, 1, 15, 3, 14, 5, 4, 23, 6, 9, 12, 55, 10, 11, 20, 13, 21, 29, 16, 19, 18, 30, 22, 38, 24, 43, 26, 17, 28, 27, 37, 25, 39, 31, 32, 54, 34, 61, 40, 33, 42, 41, 58, 35, 36, 45, 48, 47, 46, 57, 44, 78, 50, 51, 64, 76, 56, 74, 52, 49, 60, 63, 77, 53, 62, 59, 83, 67, 66, 65
Offset: 1
Keywords
Links
- Ferenc Adorjan, Table of n,a(n) for n=1..10000
Programs
-
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)} pinverse(A128754)
Comments