A228886 Number of permutations i_0,i_1,...,i_n of 0,1,...,n with i_0 = 0 and i_n = n, and with i_0+i_1, i_1+i_2, ..., i_{n-1}+i_n, i_n+i_0 all coprime to both n-1 and n+1.
1, 0, 1, 0, 1, 8, 3, 24, 78, 1164, 34, 4021156, 400, 87180, 2499480, 7509358, 1700352, 39982182134232, 1427688, 212987263960, 9533487948, 36638961135462, 29317847040, 30258969747586970112, 1655088666624
Offset: 1
Examples
a(2) = 0 since 1+2 = 2^2-1. a(3) = 1 due to the identical permutation (0,1,2,3). a(4) = 0 since 1+2 divides 4^2-1. a(5) = 1 due to the permutation (0,1,4,3,2,5). a(6) = 8 due to the permutations (0,1,2,4,5,3,6), (0,1,3,5,4,2,6), (0,2,4,5,1,3,6), (0,3,1,2,4,5,6), (0,3,1,5,4,2,6), (0,4,2,1,3,5,6), (0,4,2,1,5,3,6), (0,4,5,3,1,2,6). a(7) = 3 due to the permutations(0,1,4,3,2,5,6,7), (0,1,6,5,2,3,4,7), (0,5,2,3,4,1,6,7). a(8) > 0 due to the permutation (0,1,4,7,3,2,6,5,8). a(9) > 0 due to the permutation (0,1,2,5,4,7,6,3,8,9). a(10) > 0 due to the permutation (0,1,3,2,5,8,6,4,9,7,10).
Links
- Zhi-Wei Sun, List of required permutations for n = 1..10
- Zhi-Wei Sun, Some new problems in additive combinatorics, preprint, arXiv:1309.1679 [math.NT], 2013-2014.
Programs
-
Mathematica
(*A program to compute the required permutations for n = 8.*) V[i_]:=Part[Permutations[{1,2,3,4,5,6,7}],i] m=0 Do[Do[If[GCD[If[j==0,0,Part[V[i],j]]+If[j<7,Part[V[i],j+1],8],8^2-1]>1,Goto[aa]],{j,0,7}]; m=m+1;Print[m,":"," ",0," ",Part[V[i],1]," ",Part[V[i],2]," ",Part[V[i],3]," ",Part[V[i],4]," ",Part[V[i],5]," ",Part[V[i],6]," ",Part[V[i],7]," ",8];Label[aa];Continue,{i,1,7!}]
Extensions
a(11)-a(25) from Max Alekseyev, Sep 13 2013
Comments