OFFSET
1,2
COMMENTS
If n is in the sequence and n>10 LCM(sigma(n),phi(n))==0 (mod 6)
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range[8000], IntegerQ @ Sqrt @ LCM[EulerPhi[#], DivisorSigma[1, #]] &] (* Amiram Eldar, Aug 12 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Apr 04 2002
STATUS
approved