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

Author

Ryan Propper, Jun 17 2006

Keywords

• nonn

Comments

a(12) > 9800.

Examples

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

Crossrefs

Cf. A073656.

Programs

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}]