OFFSET
1,3
COMMENTS
a(n) is the index of the diagonal of the n-th queen. The main diagonal has index 0, upper (lower) diagonals have positive (negative) indices.
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..10000
EXAMPLE
The first queen is in the main diagonal, the second queen is in the first lower diagonal, the third queen is in the second upper diagonal, ... :
:
: Q\\\\ ...
: \\\Q\ ...
: \Q\\\ ...
: \\\\Q ...
: \\Q\\ ...
: \\\\\ ...
: .....
MAPLE
# Maple program from N. J. A. Sloane, Oct 03 2016
M1:=100000; M2:=22000; M3:=10000;
xx:=Array(0..M1, 0); yy:=Array(0..M1, 0); ss:=Array(0..M1, 0); dd:=Array(0..M1, 0);
xx[0]:=0; yy[0]:=0; ss[0]:=0; dd[0]:=0;
for n from 1 to M2 do
sw:=-1;
for s from ss[n-1]+1 to M2 do
for i from 0 to s do
x:=s-i; y:=i;
if not member(x, xx, 'p') and
not member(y, yy, 'p') and
not member(x-y, dd, 'p') then sw:=1; break; fi;
od: # od i
if sw=1 then break; fi;
od: # od s
if sw=-1 then lprint("error, n=", n); break; fi;
xx[n]:=x; yy[n]:=y; ss[n]:=x+y; dd[n]:=x-y;
od: # od n
[seq(xx[i], i=0..M3)]:
[seq(yy[i], i=0..M3)]:
[seq(ss[i], i=0..M3)]:
[seq(dd[i], i=0..M3)]:
CROSSREFS
KEYWORD
sign
AUTHOR
Alois P. Heinz, Aug 30 2016
STATUS
approved