OFFSET
1,2
LINKS
Donovan Johnson and Giovanni Resta, Table of n, a(n) for n = 1..324 (terms < 10^13, first 100 terms from Donovan Johnson)
FORMULA
a(n) = A065557(n) - 2. - Amiram Eldar, Dec 09 2022
MATHEMATICA
Select[Range[10^6], EulerPhi[#] == EulerPhi[# + 2] - EulerPhi[# + 1] &]
Position[Partition[EulerPhi[Range[31*10^5]], 3, 1], _?(#[[3]]-#[[2]] == #[[1]]&), 1, Heads->False]//Flatten (* Harvey P. Dale, Nov 29 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vincenzo Librandi, Sep 27 2013
STATUS
approved