%I A086382
%S A086382 2,1,2,10,1,10,2,1,2,12,1,10,2,1,2,10,1,12,2,1,2,10,1,10,2,1,2,16,1,12,
%T A086382 2,1,2,10,1,10,2,1,2,16,1,10,2,1,2,10,1,12,2,1,2,10,1,10,2,1,2,12,1,12,
%U A086382 2,1,2,10,1,10,2,1,2,36,1,10,2,1,2,10,1,12,2,1,2,10,1,10,2,1,2,12,1,12
%N A086382 k divides F(k*n^2+1)-F(k+1) for 1<=k<=a(n) where F(k) is the k-th Fibonacci 
               number.
%F A086382 a(3n)=1; a( A047235(n))=2
%o A086382 (PARI) a(n)=if(n<0,0,m=1; while((fibonacci(m*n^2+1)-fibonacci(m+1))%m==0,
               m++); m-1)
%Y A086382 Sequence in context: A022694 A002079 A078357 this_sequence A062345 A077098 
               A069238
%Y A086382 Adjacent sequences: A086379 A086380 A086381 this_sequence A086383 A086384 
               A086385
%K A086382 nonn
%O A086382 2,1
%A A086382 Benoit Cloitre (benoit7848c(AT)orange.fr), Sep 06 2003