|
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 *)
|