|
|
A055706
|
|
Numbers n such that n | sigma_12(n) + phi(n)^12.
|
|
0
|
|
|
1, 2, 6, 84, 437, 1366, 2390, 5676, 47471, 75972, 82321, 99012, 3015760, 5667660, 7881348, 11498604, 26118614, 26447827, 114092460, 115426140, 121197447, 207767052, 257342460, 463216428, 567155020, 658286388, 758280060, 1013513752, 1261438248, 1762803253
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
sigma_12(n) is the sum of the 12th powers of the divisors of n (A013960).
|
|
LINKS
|
|
|
MATHEMATICA
|
Do[If[Mod[DivisorSigma[12, n]+EulerPhi[n]^12, n]==0, Print[n]], {n, 1, 10^5}]
|
|
PROG
|
(PARI) isok(n) = !((sigma(n, 12) + eulerphi(n)^12) % n); \\ Michel Marcus, Mar 02 2014
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|