OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range[10^3], DivisorSigma[0, DivisorSigma[1, # ]] == DivisorSigma[0, EulerPhi[ # ]] &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Joseph L. Pe, Feb 28 2003
STATUS
approved