OFFSET
1,1
COMMENTS
These Fibonacci numbers F(n) have no prime factor congruent to 5 or 7 mod 8 to an odd power.
LINKS
MATHEMATICA
Select[Range[2, 200, 2], Length[FindInstance[x^2 + 2*y^2 == Fibonacci[#], {x, y}, Integers]] > 0 &] (* G. C. Greubel, Apr 14 2017 *)
PROG
(PARI) for(i=2, 500, a=factorint(fibonacci(i))~; has=0; for(j=1, #a, if(a[1, j]%8>4&&a[2, j]%2==1, has=1; break)); if(has==0&&i%2==0, print(i", ")))
CROSSREFS
KEYWORD
nonn,more
AUTHOR
V. Raman, Aug 23 2012
EXTENSIONS
a(12)-a(17) from V. Raman, Aug 28 2012
STATUS
approved