OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
Cases[Range[2, 206], n_ /; !PrimeQ[n] && GCD[Total[Divisors[n]], n] == GCD[n, EulerPhi[n]]] (* Jean-François Alcover, Mar 15 2011 *)
fQ[n_]:=!PrimeQ[n]&&GCD[Total[Divisors[n]], n] == GCD[n, EulerPhi[n]]; Select[Range[2, 206], fQ] (* Zak Seidov, Mar 15 2011 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Benoit Cloitre, Mar 11 2002
STATUS
approved