|
|
A055697
|
|
Numbers k such that k | sigma_3(k) - phi(k)^3.
|
|
2
|
|
|
1, 2, 10, 12, 78, 198, 1278, 1470, 1491, 2376, 2472, 6768, 7659, 7774, 9858, 10912, 11904, 12862, 16660, 25758, 35586, 38976, 39102, 40986, 41144, 44688, 59520, 72961, 80304, 84084, 94365, 104328, 119070, 153370, 174966, 200970, 230040, 291696, 358680, 376404
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
sigma_3(k) is the sum of the cubes of the divisors of n (A001158).
|
|
LINKS
|
|
|
MATHEMATICA
|
Do[If[Mod[DivisorSigma[3, n]-EulerPhi[n]^3, n]==0, Print[n]], {n, 1, 2*10^5}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|