OFFSET
1,1
MATHEMATICA
Select[Range[10^6], EulerPhi[#] + EulerPhi[# + 1] == # &] (* Amiram Eldar, Apr 23 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Feb 07 2002
EXTENSIONS
a(22)-a(33) from Donovan Johnson, Mar 24 2011
a(34)-a(36) from Amiram Eldar, Apr 23 2022
STATUS
approved