OFFSET
1,1
COMMENTS
Some of the larger entries may only correspond to probable primes.
As of August 2012, the index of last provable Fibonacci prime is A001605(33)=81839, that is, a(n) corresponds to a probable prime for n>33.
LINKS
C. K. Caldwell, The Prime Glossary, Fibonacci prime
Henri & Renaud Lifchitz, Probable primes
EXAMPLE
Tenth prime Fibonacci number is A005478(10) = 433494437, 29 digits in the binary representation, so a(10)=29.
MATHEMATICA
Length /@ IntegerDigits[Select[Fibonacci[Range[1000]], PrimeQ[#] &], 2] (* T. D. Noe, Aug 08 2012 *)
IntegerLength[#, 2]&/@Select[Fibonacci[Range[1000]], PrimeQ] (* Harvey P. Dale, Nov 20 2021 *)
PROG
(Java)
import java.math.BigInteger;
public class A215367 {
public static void main (String[] args) {
BigInteger prpr = BigInteger.valueOf(0);
BigInteger prev = BigInteger.valueOf(1), curr;
int indices[] = {
// === insert terms of A001605 here, followed by a comma === //
-1 };
int ipos = 1, ind = indices[0];
for (long k=1; ; ++k) {
if (k==ind) {
System.out.printf("%d, ", prev.bitLength());
ind = indices[ipos++];
if (ind<0) break;
}
curr = prpr.add(prev);
prpr = prev;
prev = curr;
}
}
}
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Alex Ratushnyak, Aug 08 2012
STATUS
approved