OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..200
EXAMPLE
a(5)=17711=Fib(22) since 1^2+7^2+7^2+1^2+1^2=1+49+49+1+1=101 is a prime
MATHEMATICA
Select[Fibonacci[Range[150]], PrimeQ[Total[IntegerDigits[#]^2]]&] (* Harvey P. Dale, Feb 27 2012 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Carmine Suriano, Oct 15 2010
EXTENSIONS
Corrected and extended by Harvey P. Dale, Feb 27 2012
STATUS
approved