%I #7 Oct 20 2015 10:57:17
%S 1,3,1,15,5,63,1,177,89,913,-319,4095,2393,10617,1,65535,8897,262143,
%T -44287,729537,543553,4015777,-1753087,15622785,11162969,46358529,
%U -1452031,265390977,-2270911,1073741823,1,2668569153,2862962009,15344762817,-8238350335,68103158337,45811586393
%N a(n) = A065395(2^n).
%t fs[x_] := EulerPhi[DivisorSigma[1, x]] sf[x_] := DivisorSigma[1, EulerPhi[x]] Table[fs[2^w]-sf[2^w], {w, 1, 65}]
%Y Cf. A000010, A000203, A033632, A065395, A092584-A092588.
%K sign
%O 1,2
%A _Labos Elemer_, Mar 02 2004
|