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.

A099030 Number of tone-rows in n-tone music.

This page as a plain text file.
%I A099030 #20 Jun 22 2019 18:58:30
%S A099030 1,3,8,38,192,1320,10176,91296,908160,9985920,119761920,1556847360,
%T A099030 21794734080,326920043520,5230700052480,88921882828800,
%U A099030 1600593472880640,30411275613143040,608225502973132800,12772735554075033600
%N A099030 Number of tone-rows in n-tone music.
%H A099030 Herman Jamke (hermanjamke(AT)fastmail.fm), Nov 08 2006, <a href="/A099030/b099030.txt">Table of n, a(n) for n = 3..38</a>
%H A099030 Samuel Herman, Eirini Poimenidou, <a href="https://arxiv.org/abs/1905.04785">Orbits of Hamiltonian Paths and Cycles in Complete Graphs</a>, arXiv:1905.04785 [math.CO], 2019.
%H A099030 H. Fripertinger, <a href="http://www.mat.univie.ac.at/~slc/opapers/s26fripert.html">Enumeration in musical theory</a>, Séminaire Lotharingien de Combinatoire, B26a (1991), 14 pp.
%F A099030 (1/4) [(n-1)!+(n-1)!! ] if n odd, (1/4) [(n-1)!+(n/2+1)(n-2)!! ] if even.
%t A099030 a[n_] := If[OddQ[n], (n-1)! + (n-1)!!, (n-1)! + (n/2 + 1)*(n-2)!!] / 4;
%t A099030 Table[a[n], {n, 3, 38}] (* _Jean-François Alcover_, Aug 01 2016 *)
%o A099030 (PARI) doubfact(n)=if(n<2, 1, n*doubfact(n-2));
%o A099030 for(n=3,50,if(n%2==1,print1(((n-1)!+doubfact(n-1))/4,","),print1(((n-1)!+(n/2+1)*doubfact(n-2))/4,","))) \\ Herman Jamke (hermanjamke(AT)fastmail.fm), Nov 02 2006
%Y A099030 Apart from initial terms, same as A089066. - _Ray Jerome_, Feb 25 2005
%K A099030 nonn,easy
%O A099030 3,2
%A A099030 _Ralf Stephan_, Sep 27 2004
%E A099030 More terms from Herman Jamke (hermanjamke(AT)fastmail.fm), Nov 02 2006