OFFSET
1,1
EXAMPLE
9227465 = 5*13*141961; 9227465-3 = 2*23*200597.
MATHEMATICA
Select[Fibonacci[Range[300]], Last/@FactorInteger[#]=={1, 1, 1} && (Last/@FactorInteger[#+3]=={1, 1, 1} || Last/@FactorInteger[#-3]=={1, 1, 1})&]
Select[Fibonacci[Range[300]], PrimeNu[#]==PrimeOmega[#]==3&& (PrimeNu[ #-3]==PrimeOmega[#-3]==3||PrimeNu[#+3]==PrimeOmega[#+3]==3)&] (* Harvey P. Dale, May 18 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Feb 03 2012
EXTENSIONS
Definition clarified and example corrected by Harvey P. Dale, May 18 2019
STATUS
approved