|
|
A073875
|
|
Smallest nonzero Fibonacci number divisible by n not included earlier.
|
|
2
|
|
|
1, 2, 3, 8, 5, 144, 21, 2584, 46368, 610, 55, 14930352, 13, 4807526976, 6765, 1548008755920, 34, 498454011879264, 86267571272, 832040, 987, 2880067194370816120, 51680708854858323072, 160500643816367088, 75025
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
MAPLE
|
S:= {}:
for n from 1 to 100 do
for k from 1 do
if member(k, S) then next fi;
Fk:= combinat:-fibonacci(k);
if Fk mod n = 0 then A[n]:= Fk; S:= S union {k}; break fi
od
od:
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|