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

1, 1, 2, 5, 8, 21, 34, 89, 377, 610, 2584, 6765, 10946, 28657, 121393, 514229, 832040, 3524578, 9227465, 14930352, 63245986, 165580141, 701408733, 4807526976, 12586269025, 20365011074, 53316291173, 86267571272, 225851433717

Offset

2,3

Comments

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.

Links

Table of n, a(n) for n=2..30.

Formula

a(n) = Fibonacci[ (Prime[n]-1)/2 ], n>1.

Mathematica

Table[Fibonacci[(Prime[n]-1)/2], {n, 2, 50}]

Crossrefs

Cf. A000045, A121567, A033205, A045468, A064739.

Sequence in context: A168081 A340399 A117647 * A276464 A001005 A009735

Adjacent sequences: A121565 A121566 A121567 * A121569 A121570 A121571

Keyword

nonn

Author

Alexander Adamchuk, Aug 07 2006

Status

approved