OFFSET
1,1
FORMULA
a(n) = min{x; A049586(x) = 2n - 1}.
EXAMPLE
MATHEMATICA
With[{s = Array[# - EulerPhi@ # &, 10^5]}, Function[t, MapAt[# + 1 &, TakeWhile[#, # > 0 &], 1] &@ Table[First[FirstPosition[t, n] /. k_ /; MissingQ@ k -> {0}], {n, 1, Max@ t, 2}]]@ Map[GCD @@ # &@ # &, Partition[s, 2, 1]]] (* Michael De Vlieger, Jul 30 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer and Benoit Cloitre, Apr 12 2002
STATUS
approved