|
|
A171256
|
|
Numbers n such that sigma(n) = 10*phi(n) (where sigma=A000203, phi=A000010).
|
|
5
|
|
|
168, 270, 570, 2376, 2436, 5016, 6426, 7110, 13566, 15834, 34452, 58520, 62568, 72732, 75210, 113832, 126882, 168756, 169218, 191862, 199368, 223938, 240312, 280488, 308568, 321468, 420888, 449442, 472758, 661848, 673608, 776736, 848540, 854496, 907236
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
If n is in this sequence, then for any prime p not dividing n, sigma(np) - 10*phi(np) = 2*sigma(n).
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Range[10^6], DivisorSigma[1, #] == 10 * EulerPhi[#] &] (* Amiram Eldar, Dec 04 2019 *)
|
|
PROG
|
(PARI) for(k=1, 10^6, sigma(k) - 10*eulerphi(k) || print1(k", "));
|
|
CROSSREFS
|
Cf. A062699, A068391, A074400, A068390, A136547, A104900, A136540, A104901, A163667, A171257, A104902, A171258, A171259, A171260, A104903.
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|