A111141 GCD(F(n),A113222(n)), where F(n) is n-th Fibonacci number.

1, 1, 2, 3, 5, 1, 13, 21, 34, 1, 89, 1, 233, 1, 1, 987, 1597, 1, 4181, 1, 1, 1, 28657, 23, 75025, 1, 196418, 1, 514229, 8, 1346269, 2178309, 1, 1, 1, 1, 24157817, 1, 1, 1, 165580141, 8, 433494437, 1, 1, 1, 2971215073, 23, 7778742049, 1, 1, 1, 53316291173

Offset

1,3

Links

Table of n, a(n) for n=1..53.

Example

12 = 2^2 * 3^1. So a(12) = GCD(F(12),F(2^2) + F(3^1)) = GCD(144, 5) = 1.

Mathematica

f[n_] := GCD[ Fibonacci[n], Plus @@ (Fibonacci[ #[[1]]^#[[2]]] & /@ FactorInteger[n])]; Table[ f[n], {n, 53}] (* Robert G. Wilson v *)

Crossrefs

Cf. A113222.

Sequence in context: A001578 A262341 A178763 * A069111 A171035 A094122

Adjacent sequences: A111138 A111139 A111140 * A111142 A111143 A111144

Keyword

nonn

Author

Leroy Quet, Oct 18 2005

Extensions

More terms from Robert G. Wilson v, Oct 21 2005

Status

approved