A038672 Primes p such that the p-th Fibonacci number is composite.

19, 31, 37, 41, 53, 59, 61, 67, 71, 73, 79, 89, 97, 101, 103, 107, 109, 113, 127, 139, 149, 151, 157, 163, 167, 173, 179, 181, 191, 193, 197, 199, 211, 223, 227, 229, 233, 239, 241, 251, 257, 263, 269, 271, 277, 281, 283, 293, 307, 311, 313, 317, 331, 337

Offset: 1

Author

Jeff Burch

Keywords

• nonn

Links

• Hans Havermann, Table of n, a(n) for n = 1..10000
• Hans Havermann, Composite Prime-Index Fibonacci Numbers Factored

Crossrefs

Cf. A090819 (essentially identical), A083668, A135952.

Programs

Mathematica

Rest[Select[Prime[Range[68]], ! PrimeQ[Fibonacci[#]] &]] (* Jayanta Basu, Jul 10 2013 *)
s={A083668}; Complement[Prime[Range[2, 10034]], s] (* Hans Havermann, Feb 12 2014 *)