login
A114819
Indices of Fibonacci numbers with 10 prime factors when counted with multiplicity.
2
36, 100, 114, 165, 174, 256, 266, 273, 282, 296, 304, 322, 325, 366, 369, 376, 406, 424, 428, 429, 484, 494, 506, 574, 578, 589, 633, 637, 642, 646, 652, 658, 663, 664, 668, 669, 670, 687, 705, 716, 724, 742, 754, 779, 782, 807, 845, 892, 909, 921, 946, 956
OFFSET
1,1
EXAMPLE
a(1)=36 because the 36th Fibonacci number (i.e., 14930352) consists of 10 prime factors (i.e., 2*2*2*2*3*3*3*17*19*107).
MATHEMATICA
t = {}; Do[f = FactorInteger[Fibonacci[n]]; If[Total[Transpose[f][[2]]] == 10, AppendTo[t, n]], {n, 2, 200}]; t (* T. D. Noe, Mar 14 2014 *)
Select[Range[1000], PrimeOmega[Fibonacci[#]]==10&] (* Harvey P. Dale, Jul 24 2021 *)
PROG
(PARI) n=1; while(n<305, if(bigomega(fibonacci(n))==10, print1(n, ", ")); n++)
CROSSREFS
Column k=10 of A303215.
Sequence in context: A118632 A260007 A306213 * A137945 A250812 A072413
KEYWORD
nonn
AUTHOR
Shyam Sunder Gupta, Feb 19 2006
EXTENSIONS
More terms from Ryan Propper, May 24 2006
STATUS
approved