A092589 a(n) = -A065395(2^n).

0, 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

Offset

0,3

Links

Amiram Eldar, Table of n, a(n) for n = 0..1205

Formula

a(n) = phi(2^(n+1)-1) - 2^n + 1 = A053287(n+1) - A000225(n). - Amiram Eldar, Jun 09 2024

Mathematica

fs[x_] := EulerPhi[DivisorSigma[1, x]]; sf[x_] := DivisorSigma[1, EulerPhi[x]]; Table[fs[2^w]-sf[2^w], {w, 0, 65}]

Crossrefs

Cf. A000010, A000203, A000225, A033632, A053287, A065395, A092584, A092585, A092586, A092587, A092588.

Sequence in context: A228540 A144815 A065250 * A048966 A297704 A104990

Adjacent sequences: A092586 A092587 A092588 * A092590 A092591 A092592

Keyword

sign

Author

Labos Elemer, Mar 02 2004

Extensions

Offset changed to 0, a(0) prepended and name corrected by Amiram Eldar, Jun 09 2024

Status

approved