OFFSET
1,1
LINKS
Kenneth G. Hawes, Table of n, a(n) for n = 1..10000
FORMULA
a(n) = 3 * A002618(n) = 3 * n * phi(n).
MATHEMATICA
Table[a=GroupElements[DihedralGroup[n]]; Count[Flatten[Table[Table[GroupOrder[PermutationGroup[{a[[i]], a[[j]]}]], {i, 1, 2*n}], {j, 1, 2*n}]], 2*n], {n, 1, 20}] (* Geoffrey Critzer, Apr 14 2013 *)
PROG
(PARI) a(n) = 3 * n * eulerphi(n); /* Joerg Arndt, Apr 14 2013 */
CROSSREFS
KEYWORD
nonn
AUTHOR
Dan Fux (dan.fux(AT)OpenGaia.com or danfux(AT)OpenGaia.com), Sep 28 2001
EXTENSIONS
More terms from Geoffrey Critzer, Apr 14 2013
STATUS
approved