%I A064852
%S A064852 1,0,0,1,4,18,102,624,4476,36248,329890,3326054,36846276,444783906,
%T A064852 5811885808,81729607680,1230752346352,19760412095328,336967037143578,
%U A064852 6082255011151724,115852476579789984,2322315553090615850
%N A064852 Number of orbits in A002619 consisting of n permutations.
%H A064852 Harry J. Smith, <a href="b064852.txt">Table of n, a(n) for n=1,...,100</
               a>
%F A064852 a(n) = Sum_{k|n} mu(n/k)*phi(n/k)*(n/k)^k*k!/n^2 = A047918(n, n)/n^2.
%e A064852 n=6: The orbit {(124635)(235146)(346251)(451362)(562413)(613524)} consists 
               of 6 single permutations
%o A064852 (PARI) for(n=1,23,print(sumdiv(n,d,moebius(n/d)*eulerphi(n/d)*(n/d)^d*d!/
               n^2)))
%o A064852 (PARI) { for (n=1, 100, a=sumdiv(n, d, moebius(n/d)*eulerphi(n/d)*(n/
               d)^d*d!/n^2); write("b064852.txt", n, " ", a) ) } [From Harry J. 
               Smith (hjsmithh(AT)sbcglobal.net), Sep 28 2009]
%Y A064852 Cf. A002619.
%Y A064852 Sequence in context: A084832 A135177 A137958 this_sequence A159666 A051827 
               A007711
%Y A064852 Adjacent sequences: A064849 A064850 A064851 this_sequence A064853 A064854 
               A064855
%K A064852 nice,nonn
%O A064852 1,5
%A A064852 Michael Steyer (m.steyer(AT)osram.de), Oct 06 2001
%E A064852 Corrected and extended by Jason Earls (zevi_35711(AT)yahoo.com) and Vladeta 
               Jovovic (vladeta(AT)eunet.rs), Oct 08 2001