%I #29 Nov 07 2023 14:43:31
%S 4,2,4,6,3,5,4,5,2,10,5,3,3,3,4,10,5,7,2,4,5,10,4,4,2,4,5,7,3,5,5,4,3,
%T 8,4,6,4,6,4,7,5,4,3,3,4,10,5,6,4,5,5,7,3,5,6,6,4,10,5,6,7,4,4,7,5,9,
%U 4,4,5,8,2,6,6,5,5,6,4,5,5,7,3,7,5,4,6
%N Number of prime factors of A083216(n), counted with multiplicity.
%H Alois P. Heinz, <a href="/A114566/b114566.txt">Table of n, a(n) for n = 0..336</a>
%H R. L. Graham, <a href="http://www.jstor.org/stable/2689243">A Fibonacci-Like Sequence of Composite Numbers</a>, Math. Mag. 37, 1964, pp. 322-324.
%H D. E. Knuth, <a href="http://www.jstor.org/stable/2691504">A Fibonacci-Like Sequence of Composite Numbers</a>, Math. Mag. 63, 1990, pp. 21-25.
%H H. S. Wilf, <a href="http://www.jstor.org/stable/2690956">Letter to the Editor</a>, Math. Mag. 63, 1990, p. 284.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/PrimefreeSequence.html">Primefree Sequence.</a>
%F a(n) = Omega(A083216(n)) = A001222(A083216(n)).
%F a(n) > 1 for all n >= 0.
%e a(0) = 4 because Wilf(0) = 20615674205555510 = 2 * 5 * 5623 * 366631232537 has 4 prime factors with multiplicity.
%e a(1) = 2 because Wilf(1) is semiprime, namely 3794765361567513 = 3 * 1264921787189171.
%e a(2) = 4 because Wilf(2) = 24410439567123023 = 823 * 1069 * 5779 * 4801151.
%e a(3) = 6 because Wilf(3) = 2^3 * 1039 * 4481 * 757266563 (note that the prime factor 2 is counted 3 times).
%e a(4) = 3 because Wilf(4) = 52615644495813559 = 983 * 2521 * 21231883913.
%e a(5) = 5 because Wilf(5) = 80820849424504095 = 3^2 * 5 * 43 * 41767880839537.
%p a:= n-> numtheory[bigomega]((<<0|1>, <1|1>>^n.
%p <<20615674205555510, 3794765361567513>>)[1, 1]):
%p seq(a(n), n=0..80); # _Alois P. Heinz_, Sep 20 2017
%t PrimeOmega[LinearRecurrence[{1,1},{20615674205555510,3794765361567513},100]] (* _Paolo Xausa_, Nov 07 2023 *)
%o (PARI) A083216(n)=if(n==0, 20615674205555510, if(n==1, 3794765361567513, A083216(n-1)+A083216(n-2)));
%o A114566(n)=bigomega(A083216(n));
%o for(n=0,30, print1(A114566(n),", ")) \\ _R. J. Mathar_, Dec 05 2007
%Y Cf. A001222, A083216.
%K nonn
%O 0,1
%A _Jonathan Vos Post_, Feb 15 2006
%E Corrected and extended by _R. J. Mathar_, Dec 05 2007
%E More terms from _Alois P. Heinz_, Sep 20 2017
%E Name edited by _Michel Marcus_, Nov 07 2023