OFFSET
0,7
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..20000
MAPLE
a:= proc(n) option remember; local i, j, k, t, ok;
for t from 0 do for k in [t, -t] do ok:=true;
for j from n-1 to 1 by -1 while ok do
for i from j-1 to 0 by -1 while ok do
ok:= (n-j)*(a(j)-a(i))<>(j-i)*(k-a(j))
od od; if ok then return k fi
od od
end:
seq(a(n), n=0..60);
CROSSREFS
KEYWORD
sign,look
AUTHOR
Alois P. Heinz, Mar 03 2015
STATUS
approved