A119755 Indices of Fibonacci numbers in A073656, i.e., A073656(n) = F(a(n)).

1, 2, 3, 4, 6, 5, 12, 7, 9, 10, 67671, 11084, 5271, 6704, 6807, 6452, 10587, 7928, 2463, 80, 57, 8, 15, 16, 18, 20, 27, 22, 21, 124, 87, 32, 30, 11, 24, 13, 48, 23, 60, 19, 54, 52, 69, 44, 513, 148, 75, 38, 36, 29, 750, 259, 246, 53, 150, 83, 132, 73, 42, 40, 51, 14, 981, 284, 801, 964, 1971, 5174

Offset

1,2

Comments

a(12) > 9800.

Links

Table of n, a(n) for n=1..68.

Example

A073656(7) = 144, the 12th Fibonacci number, so a(7) = 12.

Mathematica

l = {1, 2}; Do[k = 1; While[MemberQ[l, k] || !PrimeQ[Fibonacci[Last[l]] + Fibonacci[k]], k++ ]; AppendTo[l, k]; Print[l], {n, 30}]

Crossrefs

Cf. A073656.

Sequence in context: A064787 A369137 A075160 * A375579 A206710 A175502

Adjacent sequences: A119752 A119753 A119754 * A119756 A119757 A119758

Keyword

nonn

Author

Ryan Propper, Jun 17 2006

Status

approved