A091158 Indices of terms in the sequence 3, 1, 4, 5, 9, 14, 23, ... (A000285 prefixed with 3) which are prime numbers.

1, 4, 7, 8, 10, 11, 16, 20, 23, 26, 28, 35, 40, 56, 58, 80, 83, 92, 98, 100, 307, 416, 575, 691, 746, 818, 820, 971, 1391, 1487, 2000, 2200, 2368, 2386, 3043, 4076, 4868, 6536, 6776, 6787, 8008, 11915, 18898

Offset: 1

Author

G. L. Honaker, Jr., Dec 23 2003

Keywords

• nonn

Crossrefs

Cf. A000285, A091157.

Programs

Mathematica

Join[{1},Flatten[Position[LinearRecurrence[{1,1},{1,4},19000], ?PrimeQ]] +1] (* _Harvey P. Dale, Nov 17 2013 *)

Extensions

More terms from Ray Chandler, Jan 04 2004