|
%I #26 Apr 25 2016 12:05:02
%S 0,0,1,44,912,61952,8160260,888954284,180955852060,50317255621843,
%T 12251146829850324,4243527581615332664,1602629887788636447221,
%U 622433536382831426225696,344515231090957672408413959
%N Number of ways (up to rotations and reflections) of arranging numbers 1 through 2n around a circle such that the sum of each pair of adjacent numbers is composite.
%C One of the obvious analogs of sequence A051252, which has the sums being prime. Presumably it is an open problem as to whether a(n) > 0 always for this problem as well.
%C The Guy reference deals with each adjacent pair summing to a prime. - _T. D. Noe_, Jun 08 2011
%D R. K. Guy, Unsolved Problems in Number Theory, section C1.
%F Bisection of A182540: a(n) = A182540(2*n). - _Max Alekseyev_, Aug 18 2013
%e a(3) = 1, the arrangement is 1,3,6,2,4,5.
%o (MATLAB)
%o function D=primecirc(n)
%o tic
%o a = 2:2*n;
%o A=perms(a);
%o for i =1:factorial(2*n-1)
%o B(i,:)=[1 A(i,:)];
%o end
%o for k=1:size(B,2)-1
%o F(:,k) = B(:,k)+B(:,k+1);
%o end
%o if k>1
%o F(:,k+1)=B(:,end)+B(:,1);
%o end
%o l=1;
%o for i=1:factorial(2*n-1)
%o if ~isprime(F(i,:)) == ones(1,length(B(1,:)))
%o C(l,:)=B(i,:);
%o l=l+1;
%o end
%o end
%o if ~exist('C')
%o D=0;
%o return
%o end
%o if size(C,1)==1
%o D=1;
%o else
%o D=size(C,1)/2;
%o end
%o toc
%Y Cf. A051252.
%K nonn,more
%O 1,4
%A _Bennett Gardiner_, Jun 01 2011
%E a(8)-a(15) from _Max Alekseyev_, Aug 19 2013
|
