OFFSET
1,2
MATHEMATICA
Select[Range[110000], PrimeQ[EulerPhi[#]^2+DivisorSigma[1, #]^2]&] (* Harvey P. Dale, Jul 21 2019 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Benoit Cloitre, Feb 28 2002
STATUS
approved