|
|
|
|
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;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
MATHEMATICA
|
fs[x_] := EulerPhi[DivisorSigma[1, x]] sf[x_] := DivisorSigma[1, EulerPhi[x]] Table[fs[2^w]-sf[2^w], {w, 1, 65}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|