|
%I #14 Oct 14 2019 08:49:55
%S 54,78,102,128,130,135,147,154,170,171,182,217,231,236,238,279,290,
%T 309,316,338,355,374,436,442,452,471,481,524,538,548,553,649,694,725,
%U 796,801,818,833,838,847,849,851,886,889,922,923,926,939,949,958,963,965
%N Indices of Fibonacci numbers with 8 prime factors when counted with multiplicity.
%H Amiram Eldar, <a href="/A114817/b114817.txt">Table of n, a(n) for n = 1..79</a>
%H Blair Kelly, <a href="http://mersennus.net/fibonacci/">Fibonacci and Lucas Factorizations</a>.
%e a(1)=54 because 54th fibonacci number(i.e. 86267571272) consists of 8 prime factors (i.e. 2*2*2*17*19*53*109*5779 )
%t t = {}; Do[f = FactorInteger[Fibonacci[n]]; If[Total[Transpose[f][[2]]] == 8, AppendTo[t, n]], {n, 2, 200}]; t (* _T. D. Noe_, Mar 14 2014 *)
%o (PARI) n=1;while(n<320,if(bigomega(fibonacci(n))==8,print1(n,", "));n++)
%Y Column k=8 of A303215.
%K nonn
%O 1,1
%A _Shyam Sunder Gupta_, Feb 19 2006
%E More terms from _Ryan Propper_, May 24 2006
|
