OFFSET
1,5
EXAMPLE
12 = 2^2 * 3^1. So a(12) = GCD(12, F(2^2) + F(3^1)) = GCD(12, 5) = 1.
MATHEMATICA
f[n_] := GCD[n, Plus @@ (Fibonacci[ #[[1]]^#[[2]]] & /@ FactorInteger[n])]; Table[ f[n], {n, 99}] (* Robert G. Wilson v *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Oct 18 2005
EXTENSIONS
More terms from Robert G. Wilson v, Oct 21 2005
STATUS
approved