OFFSET
1,2
COMMENTS
Equality holds for 1, 3, 14, 42 and no others < 4290000000.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
phi(35)*d(35) = 4*24, a multiple of sigma(35) = 48, so 35 is in the sequence.
MATHEMATICA
Select[Range[12000], Divisible[EulerPhi[#]DivisorSigma[0, #], DivisorSigma[ 1, #]]&] (* Harvey P. Dale, Jan 11 2019 *)
PROG
(PARI) is(n) = {my(f = factor(n)); !((eulerphi(f) * numdiv(f)) % sigma(f)); } \\ Amiram Eldar, Apr 04 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
Jud McCranie, Dec 30 1999
STATUS
approved