cp's OEIS Frontend

A235715 a(n) = number of times (n-1) occurs in the fundamental period of Fibonacci numbers modulo n.

%I A235715 #4 Jan 17 2014 11:11:44
%S A235715 1,2,3,1,4,6,4,1,5,8,1,1,4,8,3,1,4,4,1,2,1,2,4,1,4,8,8,2,1,6,1,1,1,4,
%T A235715 4,1,4,1,3,1,4,2,4,1,5,4,4,1,4,8,3,2,4,8,1,2,1,2,1,1,4,1,3,1,4,2,4,1,
%U A235715 1,8,1,1,4,8,3,1,2,6,1,1,8,8,4,1,4,8
%N A235715 a(n) = number of times (n-1) occurs in the fundamental period of Fibonacci numbers modulo n.
%C A235715 a(n) = A128924(n,n).
%H A235715 Reinhard Zumkeller, <a href="/A235715/b235715.txt">Table of n, a(n) for n = 1..10000</a>
%o A235715 (Haskell)
%o A235715 a235715 1 = 1
%o A235715 a235715 n = f 1 ps 0 where
%o A235715    f 0 (1 : xs) z = z
%o A235715    f _ (x : xs) z = f x xs (z + 0 ^ (n - 1 - x))
%o A235715    ps = 1 : 1 : zipWith (\u v -> (u + v) `mod` n) (tail ps) ps
%Y A235715 Cf. A001176, A001175.
%K A235715 nonn
%O A235715 1,2
%A A235715 _Reinhard Zumkeller_, Jan 17 2014