OFFSET
1,1
EXAMPLE
8 is in the sequence because Fibonacci(8)=21, and 2^2 + 1^2 = 5 prime ;
14 is in the sequence because Fibonacci(14)=377,and 3^2 + 7^2 + 7^2 = 107 prime.
MAPLE
with(combinat, fibonacci):nn:= 120: for n from 1 to 700 do:p:=fibonacci(n):l:=length(p):n0:=p:s:=0:for m from 1 to l do:q:=n0:u:=irem(q, 10):v:=iquo(q, 10):n0:=v :s:=s+u^2:od:if type(s, prime)=true then printf(`%d, `, n): else fi:od:
MATHEMATICA
Flatten[Position[Fibonacci[Range[300]], _?(PrimeQ[Total[ IntegerDigits[ #]^2]]&), {1}, Heads->False]] (* Harvey P. Dale, Aug 31 2014 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Michel Lagneau, Jun 17 2010
STATUS
approved