%I A157605
%S A157605 1,1,2,3,7,12,19,33,53,88,141,232,375,608,985,1596,2581,4180,6763,10945,
%T A157605 17709,28655,46367,75024,121391,196417,317809,514228,832037,1346268,
%U A157605 2178307,3524577,5702885,9227464,14930349,24157816,39088167,63245984
%N A157605 a(2)=1. a(n) = the largest integer coprime to a(n-1) and less than the 
               nth Fibonacci number.
%t A157605 a[n_] := a[n] = Block[{k = Fibonacci@n - 1}, While[ GCD[k, a[n - 1]] 
               > 1, k-- ]; k]; a[1] = a[2] = 1; Table[ a[n], {n, 2, 40}] [From Robert 
               G. Wilson v (rgwv(AT)rgwv.com), May 04 2009]
%Y A157605 A157420, A157604, A157606
%Y A157605 Sequence in context: A006488 A121430 A023606 this_sequence A056179 A027675 
               A054176
%Y A157605 Adjacent sequences: A157602 A157603 A157604 this_sequence A157606 A157607 
               A157608
%K A157605 nonn
%O A157605 2,3
%A A157605 Leroy Quet (q1qq2qqq3qqqq(AT)yahoo.com), Mar 02 2009
%E A157605 More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), May 04 2009