cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-3 of 3 results.

A185645 Number of permutations q_1,...,q_n of the first n primes p_1,...,p_n with q_1 = p_1 = 2 and q_n = p_n, and with |q_1-q_2|, |q_2-q_3|, ..., |q_{n-1}-q_n|, and |q_n-q_1| (if n>2) pairwise distinct.

Original entry on oeis.org

1, 1, 1, 1, 3, 5, 10, 33, 153, 1060, 7337, 51434, 440728, 3587067, 28498105, 271208386, 3014400869, 35358507494
Offset: 1

Views

Author

Zhi-Wei Sun, Aug 29 2013

Keywords

Comments

Conjecture: a(n) > 0 for all n > 0. In general, for any n consecutive primes p_k,...,p_{k+n-1}, there always exists a permutation q_k,...,q_{k+n-1} of p_k,...,p_{k+n-1} with q_{k+n-1} = p_{k+n-1} such that the n-1 numbers |q_k-q_{k+1}|, |q_{k+1}-q_{k+2}|,...,|q_{k+n-2}-q_{k+n-1}| are pairwise distinct. (In the case k = 2, this implies that a(n) > 0.)
Clearly there is no permutation a,b,c of 3,5,7 such that the three numbers |a-b|,|b-c|,|c-a| are pairwise distinct. Also, for {a,b} = {7,11}, the three numbers |5-a|,|a-b|,|b-13| cannot be pairwise distinct.
On Aug 31 2013, Zhi-Wei Sun proved the following extension of the general conjecture: Let a_1 < a_2 < ... < a_n be a sequence of n distinct real numbers in ascending order. Then there is a permutation b_1, ..., b_n of a_1, ..., a_n with b_n = a_n such that |b_1-b_2|, |b_2-b_3|, ..., |b_{n-1}-b_n| are pairwise distinct. In fact, when n = 2*k is even we may take (b_1,...,b_n) = (a_k,a_{k+1},a_{k-1},a_{k+2},...,a_2,a_{2k-1},a_1,a_{2k}); when n = 2*k-1 is odd we may take (b_1,...,b_n) = (a_k,a_{k-1},a_{k+1},a_{k-2},a_{k+2},..., a_2,a_{2k-2},a_1,a_{2k-1}).
On Sep 01 2013, Zhi-Wei Sun made the following conjecture: (i) For any n distinct real numbers a_1, a_2, ..., a_n (not necessarily in ascending or descending order), there is a permutation b_1, ..., b_n of a_1, ..., a_n with b_1 = a_1 such that the n-1 distances |b_1-b_2|, |b_2-b_3|, ..., |b_{n-1}-b_n| are pairwise distinct.
(ii) Let a_1, ..., a_n be n distinct elements of a finite additive abelian group G. Suppose that |G| is not divisible by n, or n is even and G is cyclic. Then there exists a permutation b_1, ..., b_n of a_1, ..., a_n with b_1 = a_1 such that the n-1 differences b_{i+1}-b_i (i = 1, ..., n-1) are pairwise distinct.
We believe that part (ii) of the new conjecture holds at least when G is cyclic, and it might also hold when the group G is not abelian.
Note that if g is a primitive root modulo an odd prime p, then for any j = 0,...,p-2 the permutation g^j, g^{j+1},...,g^{j+p-2} of the p-1 nonzero residues modulo p has adjacent differences g^{i+j+1}-g^{i+j} = g^{i+j}*(g-1) (i = 0, ..., p-3) which are pairwise distinct modulo p.

Examples

			a(4) = 1 since (q_1,q_2,q_3,q_4) = (2,5,3,7) is the only suitable permutation.
a(5) = 3 since there are exactly three suitable permutations(q_1,q_2,q_3,q_4,q_5): (2,3,7,5,11), (2,5,7,3,11) and (2,7,3,5,11).
a(6) = 5 since there are exactly five suitable permutations (q_1,q_2,q_3,q_4,q_5,q_6): (2,5,3,11,7,13), (2,5,7,11,3,13), (2,7,5,11,3,13), (2,7,11,5,3,13), (2,11,5,7,3,13).
a(7) = 10, and the ten suitable permutations (q_1,...,q_7) are as follows:
  (2,3,13,5,7,11,17), (2,7,3,13,11,5,17), (2,7,5,11,3,13,17),
  (2,7,11,5,13,3,17), (2,11,3,13,7,5,17), (2,11,7,5,13,3,17),
  (2,11,7,13,3,5,17), (2,11,7,13,5,3,17), (2,13,3,11,7,5,17),
  (2,13,7,11,3,5,17).
		

Crossrefs

Programs

  • Mathematica
    A185645[n_] := Module[{p, c = 0, i = 1, j, q},
       If[n == 2, Return[1],
       p = Permutations[Table[Prime[j], {j, 2, n - 1}]];
       While[i <= Length[p],
        q = Join[{2}, p[[i]], {Prime[n]}]; i++;
        If[Length[Union[Join[Table[Abs[q[[j]] - q[[j + 1]]], {j, 1, n - 1}], {Abs[q[[n]] - q[[1]]]}]]] == n, c++]]; c]];
    Table[A185645[n], {n, 1, 11}]  (* Robert Price, Apr 04 2019 *)

Extensions

Name clarified by Robert Price, Apr 04 2019
a(12)-a(18) from Bert Dobbelaere, Sep 08 2019

A228766 Number of undirected circular permutations i_1,...,i_{n-1} of 1,...,n-1 with i_1 + i_2, i_2 + i_3, ..., i_{n-2} + i_{n-1}, i_{n-1} + i_1 pairwise distinct modulo n.

Original entry on oeis.org

0, 1, 1, 1, 1, 12, 21, 74, 309, 1376, 5016, 27198, 138592, 928544, 4735266, 31263708, 206761952, 1677199872, 11111483094
Offset: 3

Views

Author

Zhi-Wei Sun, Sep 03 2013

Keywords

Comments

Conjecture: a(n) > 0 for all n > 3. In general, if a_1,...,a_n are n > 2 distinct elements of a finite additive abelian group G with n odd or |G| not divisible by n, then there exists a circular permutation b_1,...,b_n of a_1,...,a_n such that b_1+b_2, b_2+b_3, ..., b_{n-1}+b_n, b_n+b_1 are pairwise distinct.
Note that if g is a primitive root modulo a prime p > 3 then 1+g, g+g^2, ..., g^{p-3}+g^{p-2}, g^{p-2}+1 are pairwise distinct modulo p. So a(p) > 0 for any prime p > 3.
If n > 2 is odd, then 0+1, 1+2, ..., (n-2)+(n-1), (n-1)+0 are pairwise distinct modulo n, and hence the conjecture holds in the case {a_1,...,a_n} = G = Z/nZ.

Examples

			a(4) = 1 due to the circular permutation (1,2,3).
a(5) = 1 due to the circular permutation (1,2,4,3).
a(6) = 1 due to the circular permutation (1,3,5,2,4).
a(7) = 1 due to the circular permutation (1,3,2,6,4,5).
a(8) = 12 due to the circular permutations
  (1,2,4,5,3,7,6), (1,2,6,7,3,4,5), (1,2,7,6,4,3,5), (1,4,2,5,6,3,7), (1,4,2,7,3,5,6), (1,4,3,7,2,6,5), (1,4,7,3,6,2,5), (1,5,2,3,6,4,7), (1,5,3,2,7,4,6), (1,5,4,7,3,2,6), (1,5,6,4,3,2,7), (1,6,5,4,2,3,7).
a(9) > 0 due to the permutation (1,2,3,4,6,5,8,7).
a(10) > 0 due to the permutation (1,2,4,5,6,8,9,3,7).
a(11) > 0 due to the permutation (1,2,3,4,6,7,5,10,9,8).
		

Crossrefs

Programs

  • Mathematica
    (* A program to compute required circular permutations for n = 9. To get "undirected" circular permutations, we should identify a circular permutation with the one of the opposite direction; for example, (1,7,8,5,6,4,3,2) is identitical to (1,2,3,4,6,5,8,7) if we ignore direction. *)
    V[i_]:=Part[Permutations[{2,3,4,5,6,7,8}],i]
    m=0
    Do[If[Length[Union[{Mod[1+Part[V[i],1],9]},Table[Mod[Part[V[i],j]+If[j<7,Part[V[i],j+1],1],9],{j,1,7}]]]<8,Goto[aa]];
    m=m+1;Print[m,":"," ",1," ",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]];Label[aa];Continue,{i,1,7!}]
  • Sage
    import itertools
    def a(n):
        ans = 0
        for p in itertools.permutations([i for i in range(1, n)]):
            if len(set((p[i]+p[(i+1)%(n-1)])%n for i in range(n-1))) == n-1: ans += 1
        return ans/(2*n-2)  # Robin Visser, Sep 27 2023

Extensions

a(12)-a(19) from Bert Dobbelaere, Sep 08 2019
a(20)-a(21) from Robin Visser, Sep 27 2023

A228860 Number of permutations i_1,...,i_n of 1,...,n with i_1 = 1 and i_n = n, and with the n adjacent sums i_1+i_2, i_2+i_3, ..., i_{n-1}+i_n, i_n+i_1 all coprime to n.

Original entry on oeis.org

1, 1, 0, 1, 2, 1, 40, 36, 144, 78, 126336, 176, 14035200, 69480, 779436, 25401600, 465334732800, 1700352, 127064889262080, 1888106496, 1479065243520, 1774752094080, 18353630943019008000, 144127475712, 116009818818379776000, 30959322906758400, 373881853408444416000
Offset: 1

Views

Author

Zhi-Wei Sun, Sep 05 2013

Keywords

Comments

Conjecture: a(n) > 0 except for n = 3.
If n is a power of two, then a(n) > 0 since the identical permutation 1,2,3,...,n meets the requirement. For any prime p > 3, we have a(p) > 0 since the permutation 1,...,(p-1)/2, (p+3)/2,(p+1)/2,(p+5)/2,...,p meets our purpose.
Let G(n) be the undirected simple graph with vertices 1,...,n which has an edge connecting two distinct vertices i and j if and only if i + j is relatively prime to n. Then, for any n > 2, the number a(n) is just the number of those Hamiltonian cycles in G(n) on which the vertices 1 and n are adjacent.
Let m be any integer relatively prime to n, and let i_k be the smallest positive residue of k*m modulo n. Then i_1, i_2, ..., i_n is a permutation of 1, ..., n with the n adjacent differences i_1-i_2, i_2-i_3, ..., i_{n-1}-i_n, i_n-i_1 all coprime to n.
On Sep 06 2013, the author's two former PhD students Hui-Qin Cao (from Nanjing Audit Univ.) and Hao Pan (from Nanjing Univ.) proved the conjecture fully.

Examples

			a(4) = 1 due to the permutation 1,2,3,4.
a(5) = 2 due to the permutations 1,2,4,3,5 and 1,3,4,2,5.
a(6) = 1 due to the permutation 1,4,3,2,5,6.
a(7) > 0 due to the permutation 1,2,3,5,4,6,7.
a(8) > 0 due to the permutation 1,2,3,4,5,6,7,8.
a(9) > 0 due to the permutation 1,3,2,5,8,6,4,7,9.
a(10) > 0 due to the permutation 1,2,5,4,7,6,3,8,9,10.
a(11) > 0 due to the permutation 1,2,3,4,5,7,6,8,9,10,11.
a(12) > 0 due to the permutation 1,4,9,2,5,8,3,10,7,6,11,12.
		

Crossrefs

Programs

  • Mathematica
    (*A program to compute the required permutations for n = 9.*)
    V[i_]:=Part[Permutations[{2,3,4,5,6,7,8}],i]
    m=0
    Do[Do[If[GCD[If[j==0,1,Part[V[i],j]]+If[j<7,Part[V[i],j+1],9],9]>1,Goto[aa]],{j,0,7}];
    m=m+1;Print[m,":"," ",1," ",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]," ",9];Label[aa];Continue,{i,1,7!}]

Extensions

a(12)-a(27) from Max Alekseyev, Sep 13 2013
Showing 1-3 of 3 results.