OFFSET
1,2
COMMENTS
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Range[6! ], IntegerQ[Fibonacci[ #+1]/# ]&] (* Vladimir Joseph Stephan Orlovsky, Apr 03 2009 *)
PROG
(Haskell)
import Data.List (elemIndices)
a069104 n = a069104_list !! (n-1)
a069104_list =
map (+ 1) $ elemIndices 0 $ zipWith mod (drop 2 a000045_list) [1..]
-- Reinhard Zumkeller, Oct 13 2011
(PARI) is(n)=((Mod([1, 1; 1, 0], n))^n)[1, 1]==0 \\ Charles R Greathouse IV, Feb 03 2014
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Benoit Cloitre, Apr 06 2002
STATUS
approved