%I #2 Mar 31 2012 13:20:27
%S 1,1,2,5,8,21,34,89,377,610,2584,6765,10946,28657,121393,514229,
%T 832040,3524578,9227465,14930352,63245986,165580141,701408733,
%U 4807526976,12586269025,20365011074,53316291173,86267571272,225851433717
%N Fibonacci[ (p - 1)/2 ], where p = Prime[n].
%C p = Prime[n] divides a(n) = Fibonacci[(p-1)/2] for p = {29,41,61,89,101,109,149,181,229,241,269,281,349,381,...} = A033205[n] Primes of form x^2+5*y^2 excluding A033205[1] = 5.
%F a(n) = Fibonacci[ (Prime[n]-1)/2 ], n>1.
%t Table[Fibonacci[(Prime[n]-1)/2],{n,2,50}]
%Y Cf. A000045, A121567, A033205, A045468, A064739.
%K nonn
%O 2,3
%A _Alexander Adamchuk_, Aug 07 2006