OFFSET
1,1
COMMENTS
In condensed representation: The A000045(i) at i = 3, 4, 5, 7, 8, 10, 11, 13, 16, 17, 34, 46,... [R. J. Mathar, Jul 25 2009]
FORMULA
EXAMPLE
2^2-2=2. 3^2-2=7. 5^2-2=23.
MATHEMATICA
f[n_]:=Fibonacci[n]; f2[n_]:=f[n]^2-2; lst={}; Do[If[PrimeQ[f2[n]], AppendTo[lst, f[n]]], {n, 6!}]; lst
Select[Fibonacci[Range[400]], PrimeQ[#^2-2]&] (* Harvey P. Dale, Oct 21 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jul 21 2009
EXTENSIONS
More terms from Harvey P. Dale, Oct 21 2011
STATUS
approved