A069744 Indices of prime Fibonacci numbers, minus 1.

2, 3, 4, 6, 10, 12, 16, 22, 28, 42, 46, 82, 130, 136, 358, 430, 432, 448, 508, 568, 570, 2970, 4722, 5386, 9310, 9676, 14430, 25560, 30756, 35998, 37510, 50832, 81838, 104910, 130020, 148090, 201106, 397378, 433780, 590040, 593688, 604710, 931516, 1049896, 1285606, 1636006, 1803058, 1968720, 2904352

Offset: 1

Author

Steven L Plummer (plummers(AT)bigfoot.com), Apr 21 2002

Keywords

• nonn

Crossrefs

See A001605, which is the main entry for this sequence.

Programs

Mathematica

Select[Range[3000],PrimeQ[Fibonacci[#]]&]-1 (* Harvey P. Dale, Jan 28 2013 *)