|
| |
|
|
A111229
|
|
Where n appears in A111267.
|
|
4
|
|
|
|
1, 3, 10, 5, 2, 57, 8, 11, 20, 9, 17, 97, 49, 13, 103, 27, 4, 113, 23, 25, 40, 53, 41, 99, 51, 61, 26, 33, 7, 105, 39, 83, 76, 37, 180, 119, 29, 45, 166, 31, 6, 305, 50, 87, 242, 163, 79, 169, 139, 89, 179, 117, 121, 187, 91, 115, 70, 149, 30, 195, 151, 73, 270, 171, 131, 175
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,2
|
|
|
LINKS
|
|
|
|
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
|
|
|
|
STATUS
|
approved
|
| |
|
|
