OFFSET
1,1
COMMENTS
EXAMPLE
Sigma(9) = 13, tau(9) = 3 and phi(9) = 6, hence sigma(9)/tau(9) = 13/3 and sigma(9)/phi(9) = 13/6, 9 is a term.
MAPLE
with(numtheory): filter:= q -> (sigma(q) mod phi(q) <> 0) and (sigma(q) mod tau(q) <> 0) : select(filter, [$1..200]);
MATHEMATICA
Select[Range[200], ! Or @@ Divisible[DivisorSigma[1, #], {DivisorSigma[0, #], EulerPhi[#]}] &] (* Amiram Eldar, Mar 08 2021 *)
PROG
(PARI) isok(m) = my(s=sigma(m)); (s % numdiv(m)) && (s % eulerphi(m)); \\ Michel Marcus, Mar 08 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
Bernard Schott, Mar 08 2021
STATUS
approved