%I #15 Feb 22 2024 14:15:14
%S 3,8,34,55,377,610,10946,17711,75025,121393,3524578,5702887,9227465,
%T 39088169,63245986,1836311903,7778742049,20365011074,139583862445,
%U 365435296162,591286729879,4052739537881,17167680177565,117669030460994,1304969544928657,5527939700884757
%N a(n) = Fibonacci(semiprime(n)).
%p with(numtheory): with(combinat,fibonacci):
%p 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:
%p seq(fibonacci(a(n)),n=1..30); # _Muniru A Asiru_, Dec 27 2018
%t Fibonacci[Select[Range[100], Plus@@Last/@FactorInteger[#]==2&]]
%t Fibonacci/@Select[Range[100],PrimeOmega[#]==2&] (* _Harvey P. Dale_, Feb 22 2024 *)
%o (Magma) [Fibonacci(n): n in [2..200] | &+[d[2]: d in Factorization(n)] eq 2];
%Y Cf. A000045 (Fibonacci), A001358 (semiprimes), A030426 (Fibonacci(primes)).
%K nonn
%O 1,1
%A _Vincenzo Librandi_, Dec 26 2018