login
Fibonacci[ (p - 1)/2 ], where p = Prime[n].
3

%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