|
%I #10 May 18 2019 12:37:38
%S 9227465,7778742049,17167680177565,1500520536206896083277,
%T 3311648143516982017180081,50095301248058391139327916261,
%U 898923707008479989274290850145,23770696554372451866815101694984845480039225387896643963981
%N Fibonacci numbers F such that F and either F-3 or F+3 (or both) are the products of three distinct primes.
%e 9227465 = 5*13*141961; 9227465-3 = 2*23*200597.
%t Select[Fibonacci[Range[300]], Last/@FactorInteger[#]=={1,1,1} && (Last/@FactorInteger[#+3]=={1,1,1} || Last/@FactorInteger[#-3]=={1,1,1})&]
%t Select[Fibonacci[Range[300]],PrimeNu[#]==PrimeOmega[#]==3&& (PrimeNu[ #-3]==PrimeOmega[#-3]==3||PrimeNu[#+3]==PrimeOmega[#+3]==3)&] (* _Harvey P. Dale_, May 18 2019 *)
%Y Cf. A000045
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Feb 03 2012
%E Definition clarified and example corrected by _Harvey P. Dale_, May 18 2019
| 