OFFSET
1,1
COMMENTS
Larger values not certified prime.
EXAMPLE
a(8) = 27 because Fibonacci(27) = 196418 and 986411 is prime.
MATHEMATICA
Do[ k = Sort[ IntegerDigits[ Fibonacci[n]]]; While[ k[[1]] == 0, k = Drop[k, 1]]; If[ PrimeQ[ FromDigits[ Reverse[ k]]], Print[n]], {n, 1, 10540}]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Jason Earls, May 25 2003
EXTENSIONS
Edited and extended by Robert G. Wilson v, May 26 2003
STATUS
approved