The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A057741

(Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A057741

Table T(n,k) giving number of elements of order k in dihedral group D_{2n} of order 2n, n >= 1, 1<=k<=g(n), where g(n) = 2 if n=1 else g(n) = n.
(history; published version)

#15 by Bruno Berselli at Wed Aug 31 09:52:42 EDT 2016

STATUS

reviewed

approved

#14 by Joerg Arndt at Wed Aug 31 09:35:49 EDT 2016

STATUS

proposed

reviewed

#13 by Bruno Berselli at Wed Aug 31 09:25:53 EDT 2016

STATUS

editing

proposed

#12 by Bruno Berselli at Wed Aug 31 09:25:45 EDT 2016

MATHEMATICA

row[n_] := (orders = PermutationOrder /@ GroupElements[DihedralGroup[n]]; Table[Count[orders, k], {k, 1, Max[orders]}]); Table[row[n], {n, 1, 14}] // Flatten (* _Jean-François Alcover_, Aug 31 2016 *)

Table[row[n], {n, 1, 14}] // Flatten (* Jean-François Alcover, Aug 31 2016 *)

STATUS

proposed

editing

#11 by Jean-François Alcover at Wed Aug 31 09:22:31 EDT 2016

STATUS

editing

proposed

#10 by Jean-François Alcover at Wed Aug 31 09:22:26 EDT 2016

MATHEMATICA

row[n_] := (orders = PermutationOrder /@ GroupElements[DihedralGroup[n]]; Table[Count[orders, k], {k, 1, Max[orders]}]);

Table[row[n], {n, 1, 14}] // Flatten (* Jean-François Alcover, Aug 31 2016 *)

STATUS

approved

editing

#9 by Alois P. Heinz at Wed Oct 03 17:54:32 EDT 2012

STATUS

editing

approved

#8 by Alois P. Heinz at Wed Oct 03 17:54:28 EDT 2012

AUTHOR

_Roger CUCULIERE (cuculier(AT)imaginet.fr), Cuculière_, Oct 29 2000

STATUS

approved

editing

#7 by Joerg Arndt at Tue Jun 19 07:14:01 EDT 2012

STATUS

editing

approved

#6 by Joerg Arndt at Tue Jun 19 07:13:36 EDT 2012

EXAMPLE

1,1; 1,3; 1,3,2; 1,5,0,2; 1,5,0,0,4; ...

1,1;

1,3;

1,3,2;

1,5,0,2;

1,5,0,0,4; ...

STATUS

proposed

editing