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.

User: Mark Jason Dominus

Mark Jason Dominus's wiki page.

Mark Jason Dominus has authored 2 sequences.

A271771 Maximum total Hamming distance between pairs of consecutive elements in any permutation of all 2^n binary words of length n.

Original entry on oeis.org

1, 5, 18, 53, 140, 347, 826, 1913, 4344, 9719, 21494, 47093, 102388, 221171, 475122, 1015793, 2162672, 4587503, 9699310, 20447213, 42991596, 90177515, 188743658, 394264553, 822083560, 1711276007, 3556769766, 7381975013, 15300820964, 31675383779
Offset: 1

Author

Mark Jason Dominus, Apr 13 2016

Keywords

Comments

Also the disorder number of the hypercube graph Q_n. - Eric W. Weisstein, Oct 08 2024

Examples

			Example: for n=3 the sequence 000 111 001 110 011 100 010 101 has total hamming distance 3+2+3+2+3+2+3 = 18.
		

Programs

Formula

a(n) = n*2^n - 2^(n-1) - n + 1.
From G. C. Greubel, Apr 13 2013: (Start)
G.f.: x*(1 + 2*x)/(1-2*x)^2 - x^2/(1-x)^2.
E.g.f.: (2*x - 1/2)*exp(2*x) + (1 - x)*exp(x) - 1/2. (End)

A256456 Number of simple 2n-gons with only right angles, disregarding edge lengths.

Original entry on oeis.org

0, 1, 1, 4, 8, 29, 79, 280, 912, 3260, 11410, 41272, 148976, 544802, 1997499, 7372080, 27299360, 101520714, 378721134, 1417339352, 5318837680, 20012141478, 75473438326, 285268537424, 1080433781728, 4099860518208, 15585111068644, 59343308199216, 226312777319776
Offset: 1

Author

Mark Jason Dominus, Mar 29 2015

Keywords

Comments

a(n) is also the number of bracelets containing n+2 R's and n-2 L's.
This is also the number of bracelets of n-2 nonnegative integers whose sum is n+2; this explains the labels on the decagons in the illustration. - Mark Jason Dominus, Jun 08 2015

Examples

			For n=5 the a(5)=8 bracelets are RRRLRRLRRL, RRRLRRRLRL, RRRRLRRLRL, RRRRLRRRLL, RRRRRLRLRL, RRRRRLRRLL, RRRRRRLRLL, RRRRRRRLLL.
		

Programs

  • Mathematica
    {0}~Join~Table[Coefficient[CycleIndexPolynomial[DihedralGroup[2n],Table[1+t^i,{i,1,2n}]],t^(n+2)],{n,2,30}] (* Bjarki Ágúst Guðmundsson, Jul 07 2016 *)

Extensions

Corrected (a(14) was wrong) and extended by Brent A. Yorgey, Dec 11 2015
a(31)-a(100) from Bjarki Ágúst Guðmundsson, Jul 07 2016