OFFSET
1,1
MAPLE
with(numtheory): with(combinat, fibonacci):
a:=proc(n) option remember; local h; if n=1 then 4; else for h from procname(n-1)+1 do if bigomega(h)=2 then return h; fi; od; fi; end:
seq(fibonacci(a(n)), n=1..30); # Muniru A Asiru, Dec 27 2018
MATHEMATICA
Fibonacci[Select[Range[100], Plus@@Last/@FactorInteger[#]==2&]]
Fibonacci/@Select[Range[100], PrimeOmega[#]==2&] (* Harvey P. Dale, Feb 22 2024 *)
PROG
(Magma) [Fibonacci(n): n in [2..200] | &+[d[2]: d in Factorization(n)] eq 2];
CROSSREFS
KEYWORD
nonn
AUTHOR
Vincenzo Librandi, Dec 26 2018
STATUS
approved