OFFSET
1,2
LINKS
Eric M. Schmidt, Table of n, a(n) for n = 1..100
FORMULA
a(n) = (A061417(n) + b(n))/2, where b(n) = ((n-1)/2)! * 2^((n-1)/2) if n is odd, b(n) = ((n/2)! + (n/2-1)!) * 2^(n/2-1) if n is even. - Eric M. Schmidt, Aug 23 2014
PROG
(GAP) List([1..11], n->Size(OrbitsDomain(DihedralGroup(IsPermGroup, 2*n), SymmetricGroup(IsPermGroup, n), \^)));
(Sage) def a(n) : return (sum(euler_phi(n//d) * (n//d)^d * factorial(d) for d in divisors(n))//n + [(factorial(n//2) + factorial((n+1)//2 - 1)) * 2^(n//2-1), factorial((n-1)//2) * 2^((n-1)//2)][n%2]) // 2 # Eric M. Schmidt, Aug 23 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Attila Egri-Nagy, Aug 14 2014
EXTENSIONS
More terms from Eric M. Schmidt, Aug 23 2014
STATUS
approved