OFFSET
1,2
LINKS
Donovan Johnson, Table of n, a(n) for n = 1..2000
MAPLE
INVERSE := proc(a) local b, c, i, n, hit, ulim; if whattype(a) <> list then RETURN([]); fi: c:=sort(a); b:=[]; ulim:=min(1000, c[nops(c)]); for n from c[1] to ulim do hit:=0; for i from 1 to nops(a) do if a[i]=n then b:=[op(b), i]; hit:=1; break; fi; od; if hit = 0 then RETURN(b); fi; od; end:
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Nov 03 2005
STATUS
approved