This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A114818 #20 Feb 09 2025 13:20:08
%S A114818 24,80,88,110,112,184,186,189,196,225,232,243,246,248,255,268,272,275,
%T A114818 284,286,295,328,333,357,370,412,418,425,435,477,539,556,559,561,575,
%U A114818 591,602,603,604,625,628,629,639,689,692,695,712,717,722,747,763,764
%N A114818 Indices of Fibonacci numbers with 9 prime factors when counted with multiplicity.
%H A114818 Amiram Eldar, <a href="/A114818/b114818.txt">Table of n, a(n) for n = 1..85</a>
%H A114818 Blair Kelly, <a href="http://mersennus.net/fibonacci/">Fibonacci and Lucas Factorizations</a>.
%e A114818 a(1)=24 because the 54th Fibonacci number (i.e., 46368) consists of 9 prime factors (i.e., 2*2*2*2*2*3*3*7*23).
%t A114818 t = {}; Do[f = FactorInteger[Fibonacci[n]]; If[Total[Transpose[f][[2]]] == 9, AppendTo[t, n]], {n, 2, 200}]; t (* _T. D. Noe_, Mar 14 2014 *)
%t A114818 Position[Table[If[PrimeOmega[Fibonacci[n]]==9,1,0],{n,800}],1]//Flatten (* _Harvey P. Dale_, Feb 09 2025 *)
%o A114818 (PARI) n=1;while(n<330,if(bigomega(fibonacci(n))==9,print1(n,", "));n++)
%Y A114818 Column k=9 of A303215.
%K A114818 nonn
%O A114818 1,1
%A A114818 _Shyam Sunder Gupta_, Feb 19 2006
%E A114818 More terms from _Ryan Propper_, May 24 2006