OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..138
MATHEMATICA
Select[Range[10^6], EulerPhi[#] + EulerPhi[# + 1] == DivisorSigma[1, #] &] (* Amiram Eldar, May 21 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Feb 07 2002
EXTENSIONS
More terms from Dean Hickerson, Feb 16 2002
More terms from Amiram Eldar, May 21 2022
STATUS
approved