login
A114814
Indices of Fibonacci numbers with 5 prime factors when counted with multiplicity.
2
18, 44, 45, 57, 63, 68, 69, 76, 91, 98, 111, 118, 124, 125, 134, 141, 169, 172, 183, 185, 201, 202, 203, 213, 218, 229, 247, 253, 267, 302, 303, 329, 335, 347, 363, 371, 373, 377, 381, 382, 386, 395, 398, 413, 415, 439, 443, 461, 497, 501, 529, 547, 563, 579
OFFSET
1,1
EXAMPLE
a(1)=18 because 18th Fibonacci number (i.e., 2584) consists of 5 prime factors (i.e., 2*2*2*17*19).
MATHEMATICA
t = {}; Do[f = FactorInteger[Fibonacci[n]]; If[Total[Transpose[f][[2]]] == 5, AppendTo[t, n]], {n, 2, 100}]; t (* T. D. Noe, Mar 14 2014 *)
PROG
(PARI) n=1; while(n<385, if(bigomega(fibonacci(n))==5, print1(n, ", ")); n++)
CROSSREFS
Column k=5 of A303215.
Sequence in context: A045264 A297428 A049067 * A299383 A177724 A095739
KEYWORD
nonn
AUTHOR
Shyam Sunder Gupta, Feb 19 2006
EXTENSIONS
More terms from Ryan Propper, May 22 2006
STATUS
approved