1,1
Table of n, a(n) for n=1..5.
55=5*11; (55+2)=3*19, 4181=37*113; (4181+2)=47*89
Select[Fibonacci[Range[300]], Last/@FactorInteger[#]=={1, 1} && (Last/@FactorInteger[#+2]=={1, 1} || Last/@FactorInteger[#-2]=={1, 1})&]
Cf. A000045
Sequence in context: A060077 A035323 A250833 * A103918 A013537 A056567
Adjacent sequences: A206094 A206095 A206096 * A206098 A206099 A206100
nonn
Vladimir Joseph Stephan Orlovsky, Feb 03 2012
approved