OFFSET
0,9
COMMENTS
Most of the terms are 1.
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..5000
MATHEMATICA
Map[GCD @@ Map[# - EulerPhi@ # &, #] &, Partition[Range@ 106, 2, 1]] (* Michael De Vlieger, Aug 09 2017 *)
PROG
(Magma) [GCD((n+1-EulerPhi(n+1)), n-EulerPhi(n)): n in [1..100]]; // Vincenzo Librandi, Aug 10 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Dec 28 2000
STATUS
approved