|
%I #30 Nov 08 2016 20:08:39
%S 0,1,3,2,4,5,9,6,10,12,7,8,14,11,19,20,13,15,25,16,26,28,17,18,30,33,
%T 21,22,37,23,39,24,42,41,27,29,48,49,31,32,53,55,34,35,58,57,36,38,63,
%U 40,66,68,43,70,44,45,74,46,76,47,77,79,50,51,84,52,85,54,89,90,56,94,59,60,98,61,100,62
%N Following the successive antidiagonals in A275895, let the n-th queen appear in square (x(n),y(n)); sequence gives x(n).
%C See A275902 for y(n).
%C This is a permutation of the nonnegative numbers.
%C This assumes the indexing starts at 0. See A275899, A275900 if the indexing begins at 1.
%H N. J. A. Sloane, <a href="/A275901/b275901.txt">Table of n, a(n) for n = 0..10386</a>
%p See A275899.
%p # Alternative Maple program from _N. J. A. Sloane_, Oct 03 2016
%p # To get 10000 terms of A275902 (xx), A275901 (yy), A276783 (ss), -A276325 (dd)
%p M1:=100000; M2:=22000; M3:=10000;
%p xx:=Array(0..M1,0); yy:=Array(0..M1,0); ss:=Array(0..M1,0); dd:=Array(0..M1,0);
%p xx[0]:=0; yy[0]:=0; ss[0]:=0; dd[0]:=0;
%p for n from 1 to M2 do
%p sw:=-1;
%p for s from ss[n-1]+1 to M2 do
%p for i from 0 to s do
%p x:=s-i; y:=i;
%p if not member(x,xx,'p') and
%p not member(y,yy,'p') and
%p not member(x-y,dd,'p') then sw:=1; break; fi;
%p od: # od i
%p if sw=1 then break; fi;
%p od: # od s
%p if sw=-1 then lprint("error, n=",n); break; fi;
%p xx[n]:=x; yy[n]:=y; ss[n]:=x+y; dd[n]:=x-y;
%p od: # od n
%p [seq(xx[i],i=0..M3)]:
%p [seq(yy[i],i=0..M3)]:
%p [seq(ss[i],i=0..M3)]:
%p [seq(dd[i],i=0..M3)]:
%Y Cf. A065188, A275895, A275899, A275900, A275902.
%K nonn
%O 0,3
%A _N. J. A. Sloane_, Aug 24 2016
|
