|
%I #6 Mar 30 2012 18:52:15
%S 55,4181,17711,121393,5702887
%N Fibonacci numbers F with 2 distinct prime divisors, and F+2 or F-2 also with 2 distinct prime divisors.
%e 55=5*11; (55+2)=3*19, 4181=37*113; (4181+2)=47*89
%t Select[Fibonacci[Range[300]], Last/@FactorInteger[#]=={1,1} && (Last/@FactorInteger[#+2]=={1,1} || Last/@FactorInteger[#-2]=={1,1})&]
%Y Cf. A000045
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Feb 03 2012
|
