|
| |
| |
|
|
|
1, 3, 1, 15, 5, 63, 1, 177, 89, 913, -319, 4095, 2393, 10617, 1, 65535, 8897, 262143, -44287, 729537, 543553, 4015777, -1753087, 15622785, 11162969, 46358529, -1452031, 265390977, -2270911, 1073741823, 1, 2668569153, 2862962009, 15344762817, -8238350335, 68103158337, 45811586393
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
MATHEMATICA
| fs[x_] := EulerPhi[DivisorSigma[1, x]] sf[x_] := DivisorSigma[1, EulerPhi[x]] Table[fs[2^w]-sf[2^w], {w, 1, 65}]
|
|
|
CROSSREFS
| Cf. A065395, A033632, A092584-A092588, A000203, A000010.
Sequence in context: A126454 A144815 A065250 * A048966 A104990 A089463
Adjacent sequences: A092586 A092587 A092588 * A092590 A092591 A092592
|
|
|
KEYWORD
| sign
|
|
|
AUTHOR
| Labos E. (labos(AT)ana.sote.hu), Mar 02 2004
|
| |
|
|
