cp's OEIS Frontend

A073875 Smallest nonzero Fibonacci number divisible by n not included earlier.

%I A073875 #11 Jan 05 2017 16:13:25
%S A073875 1,2,3,8,5,144,21,2584,46368,610,55,14930352,13,4807526976,6765,
%T A073875 1548008755920,34,498454011879264,86267571272,832040,987,
%U A073875 2880067194370816120,51680708854858323072,160500643816367088,75025
%N A073875 Smallest nonzero Fibonacci number divisible by n not included earlier.
%H A073875 Robert Israel, <a href="/A073875/b073875.txt">Table of n, a(n) for n = 1..481</a>
%p A073875 S:= {}:
%p A073875 for n from 1 to 100 do
%p A073875   for k from 1 do
%p A073875      if member(k,S) then next fi;
%p A073875      Fk:= combinat:-fibonacci(k);
%p A073875      if Fk mod n = 0 then A[n]:= Fk; S:= S union {k}; break fi
%p A073875   od
%p A073875 od:
%p A073875 seq(A[i],i=1..100); # _Robert Israel_, Jan 05 2017
%Y A073875 Cf. A047930, A073876.
%K A073875 nonn
%O A073875 1,2
%A A073875 _Amarnath Murthy_, Aug 16 2002
%E A073875 More terms from _Sascha Kurz_, Jan 03 2003
%E A073875 Name clarified by _Robert Israel_, Jan 05 2017